Diff FROM TO (MANUAL)

Files changed (139) hide show
  1. C://PATCH_CONTROL//{TO → FROM}/AccountSnapshot_class_info.txt +6 -1
  2. C://PATCH_CONTROL//{TO → FROM}/Account_class_info.txt +6 -1
  3. C://PATCH_CONTROL//{TO → FROM}/Account_mAnonymize.txt +22 -0
  4. C://PATCH_CONTROL//{TO → FROM}/Account_mGetBucketsByPaymenttHierarchy.txt +7 -0
  5. C://PATCH_CONTROL//FROM/Account_mHasPledgedAccounts.txt +7 -0
  6. C://PATCH_CONTROL//FROM/Account_virtHasPledgedAccount.txt +10 -0
  7. C://PATCH_CONTROL//{TO → FROM}/AdminCalculator_mInitInst_InvestorType.txt +4 -4
  8. C://PATCH_CONTROL//{TO → FROM}/AdminCalculator_mInitLender_FeeCode.txt +3 -1
  9. C://PATCH_CONTROL//{TO → FROM}/AdvanceStatementCalculator_mGetTotals.txt +15 -1
  10. C://PATCH_CONTROL//{TO → FROM}/AdvanceStatementFormHelp_mCalculateNetAdvance.txt +12 -2
  11. C://PATCH_CONTROL//FROM/AnnualStatementAddress_mAnonymize.txt +67 -0
  12. C://PATCH_CONTROL//FROM/AnnualStatementData_mAnonymize.txt +43 -0
  13. C://PATCH_CONTROL//{TO → FROM}/Company_class_info.txt +1 -1
  14. C://PATCH_CONTROL//{TO → FROM}/Contact_class_info.txt +1 -1
  15. C://PATCH_CONTROL//FROM/CoreCombo_mRemoveItem.txt +18 -0
  16. C://PATCH_CONTROL//{TO → FROM}/CoreCurrencyTextBox_mPositionCurrencyLabel.txt +2 -1
  17. C://PATCH_CONTROL//{TO → FROM}/CoreDateTextBox_paint.txt +2 -0
  18. C://PATCH_CONTROL//{TO → FROM}/CoreSchema_mDoCommitActions.txt +2 -1
  19. C://PATCH_CONTROL//{TO → FROM}/CoreSchema_mJadeBatchExtract.txt +7 -1
  20. C://PATCH_CONTROL//FROM/CoreSchema_mRemotePatchCopy.txt +179 -0
  21. C://PATCH_CONTROL//{TO → FROM}/CoreSchema_mSendMailv3.txt +6 -3
  22. C://PATCH_CONTROL//{TO → FROM}/CoreTextBox_visible.txt +4 -4
  23. C://PATCH_CONTROL//{TO → FROM}/Division_class_info.txt +1 -1
  24. C://PATCH_CONTROL//{TO → FROM}/Employee_class_info.txt +1 -1
  25. C://PATCH_CONTROL//{TO → FROM}/FeeCode_class_info.txt +10 -0
  26. C://PATCH_CONTROL//FROM/FeeCode_mGetANotIncludedInAdvStm.txt +19 -0
  27. C://PATCH_CONTROL//{TO → FROM}/FeeCode_mSetDetails.txt +6 -2
  28. C://PATCH_CONTROL//{TO → FROM}/FinancialTxnAgent_trxCreateGLTxn.txt +1 -1
  29. C://PATCH_CONTROL//{TO → FROM}/FinancialTxnAgent_trxPostPaymentRealization.txt +5 -2
  30. C://PATCH_CONTROL//{TO → FROM}/FinancialTxnAgent_trxRealizeFeeInterest.txt +32 -1
  31. C://PATCH_CONTROL//{TO → FROM}/FormCreatePoolingRun_initialize.txt +14 -1
  32. C://PATCH_CONTROL//{TO → FROM}/FormCreateTxn_mDoAction.txt +6 -3
  33. C://PATCH_CONTROL//{TO → FROM}/FormCreateTxn_mValidate.txt +1 -1
  34. C://PATCH_CONTROL//{TO → FROM}/FormEditAccountDetails_class_info.txt +10 -0
  35. C://PATCH_CONTROL//{TO → FROM}/FormEditAccountDetails_mLoadDetails.txt +11 -0
  36. C://PATCH_CONTROL//{TO → FROM}/FormEditCoreTranslatableString_mValidate.txt +2 -0
  37. C://PATCH_CONTROL//{TO → FROM}/FormEditPayout_btnCreateDoc_click.txt +3 -2
  38. C://PATCH_CONTROL//{TO → FROM}/FormGlobalAuditViewer_mGetDesc.txt +5 -0
  39. C://PATCH_CONTROL//TO/FormLogonMessaging_class_info.txt +0 -779
  40. C://PATCH_CONTROL//{TO → FROM}/FormMDIFeeSetup_class_info.txt +10 -0
  41. C://PATCH_CONTROL//{TO → FROM}/FormMDIFeeSetup_mDoAction.txt +4 -1
  42. C://PATCH_CONTROL//{TO → FROM}/FormMDIFeeSetup_mListRowColChange.txt +2 -0
  43. C://PATCH_CONTROL//FROM/FormMDIInvestorType_cboPlanningPools_displayRow.txt +21 -0
  44. C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_class_info.txt +10 -0
  45. C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_initialize.txt +4 -0
  46. C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_mDoAction.txt +4 -1
  47. C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_mLoadDetails.txt +16 -0
  48. C://PATCH_CONTROL//TO/FormMesagingMgrMDIChild_class_info.txt +0 -584
  49. C://PATCH_CONTROL//TO/FormMessageDetails_btnOK_click.txt +0 -19
  50. C://PATCH_CONTROL//TO/FormMessageDetails_class_info.txt +0 -614
  51. C://PATCH_CONTROL//TO/FormMessageDetails_mSetDetails.txt +0 -23
  52. C://PATCH_CONTROL//TO/FormMessagingMgrMain_class_info.txt +0 -689
  53. C://PATCH_CONTROL//TO/FormMessagingMgrMain_initialize.txt +0 -44
  54. C://PATCH_CONTROL//TO/FormMessagingMgrMain_jdbRight_userResize.txt +0 -19
  55. C://PATCH_CONTROL//TO/FormMessagingMgrMain_mResize.txt +0 -20
  56. C://PATCH_CONTROL//TO/FormMessagingMgrMain_mSetStatusBar.txt +0 -19
  57. C://PATCH_CONTROL//TO/FormMessagingMgrMain_mUserPreferences.txt +0 -19
  58. C://PATCH_CONTROL//TO/FormMessagingMgrMain_mnuExit_click.txt +0 -19
  59. C://PATCH_CONTROL//TO/FormMessagingMgrMain_mnuPreferences_click.txt +0 -19
  60. C://PATCH_CONTROL//TO/FormMessagingMgrMain_resize.txt +0 -19
  61. C://PATCH_CONTROL//TO/FormMessagingMgrModal_class_info.txt +0 -584
  62. C://PATCH_CONTROL//TO/FormMessagingMgr_class_info.txt +0 -584
  63. C://PATCH_CONTROL//TO/FormMessagingMgr_initialize.txt +0 -19
  64. C://PATCH_CONTROL//TO/FormMessagingMgr_load.txt +0 -19
  65. C://PATCH_CONTROL//TO/FormMessagingMonitor_class_info.txt +0 -689
  66. C://PATCH_CONTROL//TO/FormMessagingMonitor_initialize.txt +0 -21
  67. C://PATCH_CONTROL//TO/FormMessagingMonitor_jdbAgents_userResize.txt +0 -8
  68. C://PATCH_CONTROL//TO/FormMessagingMonitor_jdbFailures_userResize.txt +0 -19
  69. C://PATCH_CONTROL//TO/FormMessagingMonitor_mCheckSectionHeight.txt +0 -12
  70. C://PATCH_CONTROL//TO/FormMessagingMonitor_mDeleteMessageFailure.txt +0 -29
  71. C://PATCH_CONTROL//TO/FormMessagingMonitor_mFormatAgentTable.txt +0 -25
  72. C://PATCH_CONTROL//TO/FormMessagingMonitor_mFormatFailuresTable.txt +0 -34
  73. C://PATCH_CONTROL//TO/FormMessagingMonitor_mLoadAgentTable.txt +0 -21
  74. C://PATCH_CONTROL//TO/FormMessagingMonitor_mLoadFailuresTable.txt +0 -22
  75. C://PATCH_CONTROL//TO/FormMessagingMonitor_mRefreshFailedFiles.txt +0 -21
  76. C://PATCH_CONTROL//TO/FormMessagingMonitor_mViewMessageFailure.txt +0 -25
  77. C://PATCH_CONTROL//TO/FormMessagingMonitor_mnuDeleteFailure_click.txt +0 -19
  78. C://PATCH_CONTROL//TO/FormMessagingMonitor_mnuViewFailure_click.txt +0 -19
  79. C://PATCH_CONTROL//TO/FormMessagingMonitor_tblAgents_displayRow.txt +0 -19
  80. C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFailures_contextMenu.txt +0 -41
  81. C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFailures_displayRow.txt +0 -22
  82. C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFiles_dblClick.txt +0 -31
  83. C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFiles_displayRow.txt +0 -22
  84. C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFiles_keyDown.txt +0 -40
  85. C://PATCH_CONTROL//TO/FormMessagingMonitor_timerEvent.txt +0 -31
  86. C://PATCH_CONTROL//{TO → FROM}/FormPoolAddComponent_mValidate.txt +6 -0
  87. C://PATCH_CONTROL//{TO → FROM}/FormRenewalWizard_mPopulateFormFromRenewalEvntFO.txt +9 -0
  88. C://PATCH_CONTROL//FROM/FormWorkPackageTransaction_mGetFundsTypes.txt +45 -0
  89. C://PATCH_CONTROL//FROM/FormWorkTransaction_mGetFundsTypes.txt +34 -0
  90. C://PATCH_CONTROL//{TO → FROM}/FormWorkTransaction_mLoadFundsTypeTable.txt +4 -2
  91. C://PATCH_CONTROL//{TO → FROM}/FundingAddress_mAnonymize.txt +4 -5
  92. C://PATCH_CONTROL//TO/GMessagingSchema_class_info.txt +0 -24
  93. C://PATCH_CONTROL//{TO → FROM}/GeneralTxnAgent_trxUpdateFeeCode.txt +7 -3
  94. C://PATCH_CONTROL//{TO → FROM}/GeneralTxnAgent_trxUpdateInvestorType.txt +6 -1
  95. C://PATCH_CONTROL//{TO → FROM}/Individual_class_info.txt +1 -1
  96. C://PATCH_CONTROL//{TO → FROM}/InvestorType_class_info.txt +5 -0
  97. C://PATCH_CONTROL//FROM/InvestorType_mGetDefaultPool.txt +18 -0
  98. C://PATCH_CONTROL//FROM/InvestorType_mSetDefaultPool.txt +18 -0
  99. C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_class_info.txt +161 -0
  100. C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mGetParamStrings.txt +40 -0
  101. C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mListParams.txt +9 -0
  102. C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mName.txt +26 -0
  103. C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mRun.txt +172 -0
  104. C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mSetParameters.txt +26 -0
  105. C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mValidateParams.txt +52 -0
  106. C://PATCH_CONTROL//{TO → FROM}/JobPostEvents_mProcessJob.txt +21 -6
  107. C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml_PrepaymentLetter_v0.txt +13 -1
  108. C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml_PrepaymentLetter_v1.txt +13 -2
  109. C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml__CreateCOB_v0.txt +16 -1
  110. C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml__CreateCOB_v1.txt +20 -2
  111. C://PATCH_CONTROL//{TO → FROM}/MessageMorWeb_mProcess_ImportDeal.txt +3 -1
  112. C://PATCH_CONTROL//FROM/MessageProcessingAgent_mCheckLendeskMessages.txt +20 -0
  113. C://PATCH_CONTROL//{TO → FROM}/MessageProcessingAgent_mProcessMessage.txt +1 -0
  114. C://PATCH_CONTROL//{TO → FROM}/MessageProcessor_mStartTimer.txt +5 -0
  115. C://PATCH_CONTROL//{TO → FROM}/MessageProcessor_timerEvent.txt +5 -0
  116. C://PATCH_CONTROL//TO/MessagingSchema_class_info.txt +0 -1213
  117. C://PATCH_CONTROL//TO/MessagingSchema_mAppNameFriendly.txt +0 -22
  118. C://PATCH_CONTROL//TO/MessagingSchema_mFinalizeMessagingWorker.txt +0 -28
  119. C://PATCH_CONTROL//TO/MessagingSchema_mFinalizeMsgMgr.txt +0 -19
  120. C://PATCH_CONTROL//TO/MessagingSchema_mFinalizeMsgProcessor.txt +0 -22
  121. C://PATCH_CONTROL//TO/MessagingSchema_mGetErrorFiles.txt +0 -31
  122. C://PATCH_CONTROL//TO/MessagingSchema_mGetLogonFormClass.txt +0 -20
  123. C://PATCH_CONTROL//TO/MessagingSchema_mInitializeMsgMgr.txt +0 -21
  124. C://PATCH_CONTROL//TO/MessagingSchema_mInitializeMsgProcessor.txt +0 -44
  125. C://PATCH_CONTROL//TO/MessagingSchema_mSetReferences.txt +0 -51
  126. C://PATCH_CONTROL//TO/MessagingSchema_mStartWorking.txt +0 -73
  127. C://PATCH_CONTROL//TO/MessagingSchema_mTranslatableName.txt +0 -22
  128. C://PATCH_CONTROL//TO/MessagingSchema_userNotification.txt +0 -26
  129. C://PATCH_CONTROL//FROM/OperationControl_mToggleLendesk.txt +41 -0
  130. C://PATCH_CONTROL//{TO → FROM}/RegressionAgent_init_Core2.txt +2 -2
  131. C://PATCH_CONTROL//{TO → FROM}/RegressionScript_script_create_FeeCode.txt +3 -1
  132. C://PATCH_CONTROL//{TO → FROM}/SelectionCondition_mEvaluateObject.txt +1 -0
  133. C://PATCH_CONTROL//{TO → FROM}/ServicingModelSchema_mBuildInfo.txt +2 -2
  134. C://PATCH_CONTROL//{TO → FROM}/SystemEventEngine_mProcessAdvance.txt +3 -1
  135. C://PATCH_CONTROL//{TO → FROM}/UnderwritingData_class_info.txt +40 -3
  136. C://PATCH_CONTROL//FROM/UnderwritingData_getPledgedAccount.txt +25 -0
  137. C://PATCH_CONTROL//FROM/UnderwritingData_setPledgedAccount.txt +26 -0
  138. C://PATCH_CONTROL//FROM/UnderwritingData_virtPledgedAccountString.txt +34 -0
  139. C://PATCH_CONTROL//{TO → FROM}/User_mIsDeveloper.txt +5 -7
C://PATCH_CONTROL//{TO → FROM}/AccountSnapshot_class_info.txt RENAMED
@@ -966,7 +966,7 @@ LEN:12
966
 
967
  NAME:myUnderwritingData
968
  LEN:12
969
-
970
 
971
 
972
  NAME:rpsBrokerConditions
@@ -1129,6 +1129,11 @@ Patch Number: 34241
1129
  Ticket: 99999
1130
  Purpose: Not Implemented
1131
 
 
 
 
 
 
1132
  NAME:virtInitBrokerName
1133
  LEN:-1
1134
 
966
 
967
  NAME:myUnderwritingData
968
  LEN:12
969
+ Pledged Account
970
 
971
 
972
  NAME:rpsBrokerConditions
1129
  Ticket: 99999
1130
  Purpose: Not Implemented
1131
 
1132
+ NAME:virtHasPledgedAccount
1133
+ LEN:1
1134
+ Pledged Account
1135
+
1136
+
1137
  NAME:virtInitBrokerName
1138
  LEN:-1
1139
 
C://PATCH_CONTROL//{TO → FROM}/Account_class_info.txt RENAMED
@@ -949,7 +949,7 @@ LEN:12
949
 
950
  NAME:myUnderwritingData
951
  LEN:12
952
-
953
 
954
 
955
  NAME:rpsBrokerConditions
@@ -1112,6 +1112,11 @@ Patch Number: 34241
1112
  Ticket: 99999
1113
  Purpose: Not Implemented
1114
 
 
 
 
 
 
1115
  NAME:virtInitBrokerName
1116
  LEN:-1
1117
 
949
 
950
  NAME:myUnderwritingData
951
  LEN:12
952
+ Pledged Account
953
 
954
 
955
  NAME:rpsBrokerConditions
1112
  Ticket: 99999
1113
  Purpose: Not Implemented
1114
 
1115
+ NAME:virtHasPledgedAccount
1116
+ LEN:1
1117
+ Pledged Account
1118
+
1119
+
1120
  NAME:virtInitBrokerName
1121
  LEN:-1
1122
 
C://PATCH_CONTROL//{TO → FROM}/Account_mAnonymize.txt RENAMED
@@ -21,6 +21,11 @@ vars
21
  vID : String;
22
  vPaymentGroup : PaymentGroup;
23
  vObjectInfo : String;
 
 
 
 
 
24
  begin
25
  vAnonymizer := pConfigurator;
26
 
@@ -93,8 +98,25 @@ begin
93
  //vInterface.allDocumentItemsCreated.purge;
94
  virtAllNotes.purge;
95
  allConditionTracking.purge;
 
 
 
 
 
 
 
 
 
 
 
 
96
  allSnapshot.purge;
97
 
 
 
 
 
 
98
  //#10888 Gaurav 13Aug19 {122333} : Added global logic to purge relevant audit entities.
99
  mPurgeAudits;
100
 
21
  vID : String;
22
  vPaymentGroup : PaymentGroup;
23
  vObjectInfo : String;
24
+ vSnapshot : AccountSnapshot;
25
+ vSnapClient : AccountClient;
26
+ vClientList : ClientByNameDict;
27
+ vAnnualStatementData : AnnualStatementData;
28
+
29
  begin
30
  vAnonymizer := pConfigurator;
31
 
98
  //vInterface.allDocumentItemsCreated.purge;
99
  virtAllNotes.purge;
100
  allConditionTracking.purge;
101
+
102
+ // #HTB-1519 MarkusJ 18Oct22 {124733} : Delete Account Snapshot's Clients
103
+ create vClientList transient;
104
+ foreach vSnapshot in allSnapshot do
105
+ foreach vSnapClient in vSnapshot.allClientByID do
106
+ //Check client doesn't exist elsewhere (never should on a snapshot)
107
+ if vSnapClient.myClient.allAccountLinks.size = 1 and vSnapClient.myClient.myLender = null then
108
+ vClientList.add(vSnapClient.myClient);
109
+ endif;
110
+ endforeach;
111
+ endforeach;
112
+ vClientList.purge;
113
  allSnapshot.purge;
114
 
115
+ // #HTB-1482 MarkusJ 18Oct22 {124733} : Anonymize AnnualStatementData
116
+ foreach vAnnualStatementData in allAnnualStatements do
117
+ vAnnualStatementData.mAnonymize(pConfigurator);
118
+ endforeach;
119
+
120
  //#10888 Gaurav 13Aug19 {122333} : Added global logic to purge relevant audit entities.
121
  mPurgeAudits;
122
 
C://PATCH_CONTROL//{TO → FROM}/Account_mGetBucketsByPaymenttHierarchy.txt RENAMED
@@ -51,6 +51,13 @@ begin
51
  vAllowInactiveComponent := self.enStatus = KN_PAIDOUT and (pTxnDefinition.mIsFeeCharge or pTxnDefinition.misCollectionCharge or pTxnDefinition.mIsCreditFeeOrCollectionCost) and app.myLender.mySystemFlag.mGetValueBoolean(SystemFlag.FLAG_SERV_COLLECTION_COST_FEES_FOR_PAIDOUT);
52
  // HTB-134 BrandonS 04Jan21 {123282} : allow use of inactive component if vAllowInactiveComponent is true
53
  if (vComponent.mGetProduct = vDefinitionItem.myServicingProduct or (vDefinitionItem.myProductTypeGroup <> null and vComponent.mGetProduct.myProductTypeGroup = vDefinitionItem.myProductTypeGroup)) and (vComponent = vOverideComponent or (vComponent.mIsActive or vAllowInactiveComponent)) then
 
 
 
 
 
 
 
54
  vCompFound := true;
55
  vActualBucket := vComponent.allTxnBuckets[vDefinitionItem.myTxnBucketDefinition];
56
  // why was myLender added as a pamaeter ehre?
51
  vAllowInactiveComponent := self.enStatus = KN_PAIDOUT and (pTxnDefinition.mIsFeeCharge or pTxnDefinition.misCollectionCharge or pTxnDefinition.mIsCreditFeeOrCollectionCost) and app.myLender.mySystemFlag.mGetValueBoolean(SystemFlag.FLAG_SERV_COLLECTION_COST_FEES_FOR_PAIDOUT);
52
  // HTB-134 BrandonS 04Jan21 {123282} : allow use of inactive component if vAllowInactiveComponent is true
53
  if (vComponent.mGetProduct = vDefinitionItem.myServicingProduct or (vDefinitionItem.myProductTypeGroup <> null and vComponent.mGetProduct.myProductTypeGroup = vDefinitionItem.myProductTypeGroup)) and (vComponent = vOverideComponent or (vComponent.mIsActive or vAllowInactiveComponent)) then
54
+ // #HTB-1347 MarkusJ 22Jun22 {124475} : Check if mortgage component is latest for inactive loans
55
+ if vComponent.mIsMortgageComponent and vAllowInactiveComponent and not vComponent.mIsActive then
56
+ if vComponent <> mGetLatestMortgageComponentByID then
57
+ continue;
58
+ endif;
59
+ endif;
60
+
61
  vCompFound := true;
62
  vActualBucket := vComponent.allTxnBuckets[vDefinitionItem.myTxnBucketDefinition];
63
  // why was myLender added as a pamaeter ehre?
C://PATCH_CONTROL//FROM/Account_mHasPledgedAccounts.txt ADDED
@@ -0,0 +1,7 @@
 
 
 
 
 
 
 
1
+ mHasPledgedAccounts(): Boolean;
2
+
3
+ vars
4
+
5
+ begin
6
+ return myUnderwritingData.getPledgedAccount <> null;
7
+ end;
C://PATCH_CONTROL//FROM/Account_virtHasPledgedAccount.txt ADDED
@@ -0,0 +1,10 @@
 
 
 
 
 
 
 
 
 
 
1
+ virtHasPledgedAccount(set: Boolean; _value: Boolean io) mapping;
2
+
3
+ begin
4
+ if set then
5
+ // set code here
6
+ else
7
+ _value := mHasPledgedAccounts;
8
+ endif;
9
+
10
+ end;
C://PATCH_CONTROL//{TO → FROM}/AdminCalculator_mInitInst_InvestorType.txt RENAMED
@@ -65,8 +65,8 @@ begin
65
  mGetTerminology(TT_LINE_OF_BUSINESS, vVal.at(9)),
66
  vVal.at(11).Boolean,
67
  false,
68
- false // // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
69
- );
70
 
71
  elseif vVal.at(1) = "LOCALE" then
72
  create vLocale transient;
@@ -82,8 +82,8 @@ begin
82
  null, null, null, null,
83
  vVal.at(11).Boolean,
84
  false,
85
- false // // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
86
- );
87
  elseif vVal.at(1) = "PAYMENT" then
88
  // #12561 MarkusJ 11Dec19 {122644} : Changed to InvestorTypeBucketDefinitionLinkDict
89
  create vTxnBucket transient;
65
  mGetTerminology(TT_LINE_OF_BUSINESS, vVal.at(9)),
66
  vVal.at(11).Boolean,
67
  false,
68
+ false, // // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
69
+ null);
70
 
71
  elseif vVal.at(1) = "LOCALE" then
72
  create vLocale transient;
82
  null, null, null, null,
83
  vVal.at(11).Boolean,
84
  false,
85
+ false, // // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
86
+ null);
87
  elseif vVal.at(1) = "PAYMENT" then
88
  // #12561 MarkusJ 11Dec19 {122644} : Changed to InvestorTypeBucketDefinitionLinkDict
89
  create vTxnBucket transient;
C://PATCH_CONTROL//{TO → FROM}/AdminCalculator_mInitLender_FeeCode.txt RENAMED
@@ -68,6 +68,7 @@ begin
68
 
69
  // #HTB-101 ThabanS 19May20 {122903} : added locale params
70
  // #HTB-1355 MarkusJ 12Apr22 {124293} : added FeeCodeInvestorTypeLinks -> null here
 
71
  app.myGeneralTxnAgent.trxUpdateFeeCode( vFeeCode,
72
  null,
73
  vVal.at(2).trimBlanks,
@@ -105,7 +106,8 @@ begin
105
  app.mGetTerminology(TT_FEE_MULTIPLY_TERM, vVal.at(17)),
106
  // #CTC-419 ChristopherD 04Dec20 {123305} : Get the new property aFullyAmortizeOnSaleToInvestor
107
  vVal.at(30).Boolean,
108
- null);
 
109
  endif;
110
 
111
  endif;
68
 
69
  // #HTB-101 ThabanS 19May20 {122903} : added locale params
70
  // #HTB-1355 MarkusJ 12Apr22 {124293} : added FeeCodeInvestorTypeLinks -> null here
71
+ //#HTB-1433 SaulL 04Nov22 {124813}: Adding a new property, aNotIncludedInAdvStm -> true here
72
  app.myGeneralTxnAgent.trxUpdateFeeCode( vFeeCode,
73
  null,
74
  vVal.at(2).trimBlanks,
106
  app.mGetTerminology(TT_FEE_MULTIPLY_TERM, vVal.at(17)),
107
  // #CTC-419 ChristopherD 04Dec20 {123305} : Get the new property aFullyAmortizeOnSaleToInvestor
108
  vVal.at(30).Boolean,
109
+ null,
110
+ true);
111
  endif;
112
 
113
  endif;
C://PATCH_CONTROL//{TO → FROM}/AdvanceStatementCalculator_mGetTotals.txt RENAMED
@@ -88,8 +88,22 @@ begin
88
  endif;
89
 
90
  //Ticket 9971 - AlexanderV - 2018-08-28
91
- foreach vDeduction in pAdvanceItem.allBaseFundingDeductions where vDeduction.mIsAdvanceDeduction(myAdvanceStatementDetails) do
92
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
93
  if pDeductions <> null then
94
  pDeductions.mAddItem(vDeduction, vDeduction.mDisplayRowDeductionsTable( myAdvanceStatementDetails, myAdvanceStatementDetails.mIsAddToLoan));
95
  endif;
88
  endif;
89
 
90
  //Ticket 9971 - AlexanderV - 2018-08-28
91
+ // #HTB-1433 SaulL 04Nov22 {124813}: Do not display the Fee Code if its aNotIncludedInAdvStm is true
92
 
93
+ foreach vDeduction in pAdvanceItem.allBaseFundingDeductions where vDeduction.isKindOf(FeeCodeDeductionOrDisburse)
94
+ and vDeduction.mIsAdvanceDeduction(myAdvanceStatementDetails)
95
+ and not vDeduction.FeeCodeDeductionOrDisburse.myFeeCode.mGetANotIncludedInAdvStm
96
+ do
97
+ if pDeductions <> null then
98
+ pDeductions.mAddItem(vDeduction, vDeduction.mDisplayRowDeductionsTable( myAdvanceStatementDetails, myAdvanceStatementDetails.mIsAddToLoan));
99
+ endif;
100
+ pTotalAdvanceDeductions := pTotalAdvanceDeductions + vDeduction.mGetAmount;
101
+ endforeach;
102
+
103
+ // #HTB-1433 SaulL 04Nov22 {124813}: For vDeduction is not Fee Code, use the previous logic
104
+ foreach vDeduction in pAdvanceItem.allBaseFundingDeductions where not vDeduction.isKindOf(FeeCodeDeductionOrDisburse) and
105
+ vDeduction.mIsAdvanceDeduction(myAdvanceStatementDetails)
106
+ do
107
  if pDeductions <> null then
108
  pDeductions.mAddItem(vDeduction, vDeduction.mDisplayRowDeductionsTable( myAdvanceStatementDetails, myAdvanceStatementDetails.mIsAddToLoan));
109
  endif;
C://PATCH_CONTROL//{TO → FROM}/AdvanceStatementFormHelp_mCalculateNetAdvance.txt RENAMED
@@ -15,7 +15,8 @@ vars
15
  begin
16
  vAmount := myAdvanceStatementDetails.aCommitmentAmount;
17
 
18
- foreach vBaseFundingHoldbackDisburse in pAdvanceScheduleItem.allBaseFundingDeductions do
 
19
 
20
  if vBaseFundingHoldbackDisburse.isKindOf(ClawbackDisbursement) then
21
  vAmount := vAmount + vBaseFundingHoldbackDisburse.mGetAmount;
@@ -23,11 +24,20 @@ begin
23
  endif;
24
 
25
  //Ticket 9971 - AlexanderV - 2018-06-26 - added receipt handling
26
- if vBaseFundingHoldbackDisburse.isKindOf(FeeCodeDeductionOrDisburse) and not vBaseFundingHoldbackDisburse.mIsLenderPays(pAdvanceDetails) then
 
 
 
27
  vAmount := vAmount + vBaseFundingHoldbackDisburse.FeeCodeDeductionOrDisburse.mGetTxnTotal(pAdvanceScheduleItem.myAccount);
28
  vAmount := vAmount - vBaseFundingHoldbackDisburse.mGetAmount;
 
 
 
 
 
29
  elseif vBaseFundingHoldbackDisburse.mIsAdvanceDeduction(pAdvanceDetails) or vBaseFundingHoldbackDisburse.mIsCommitmentDeduction then
30
  vAmount := vAmount - vBaseFundingHoldbackDisburse.mGetAmount;
 
31
  endif;
32
 
33
  endforeach;
15
  begin
16
  vAmount := myAdvanceStatementDetails.aCommitmentAmount;
17
 
18
+ foreach vBaseFundingHoldbackDisburse in pAdvanceScheduleItem.allBaseFundingDeductions
19
+ do
20
 
21
  if vBaseFundingHoldbackDisburse.isKindOf(ClawbackDisbursement) then
22
  vAmount := vAmount + vBaseFundingHoldbackDisburse.mGetAmount;
24
  endif;
25
 
26
  //Ticket 9971 - AlexanderV - 2018-06-26 - added receipt handling
27
+ if vBaseFundingHoldbackDisburse.isKindOf(FeeCodeDeductionOrDisburse) and not vBaseFundingHoldbackDisburse.mIsLenderPays(pAdvanceDetails)
28
+ // #HTB-1433 SaulL 07Nov22 {124813}: If Fee Code is setup as Not Included in Advance = true in Admin, do not calculate it
29
+ and not vBaseFundingHoldbackDisburse.FeeCodeDeductionOrDisburse.myFeeCode.mGetANotIncludedInAdvStm
30
+ then
31
  vAmount := vAmount + vBaseFundingHoldbackDisburse.FeeCodeDeductionOrDisburse.mGetTxnTotal(pAdvanceScheduleItem.myAccount);
32
  vAmount := vAmount - vBaseFundingHoldbackDisburse.mGetAmount;
33
+ // #HTB-1433 SaulL 07Nov22 {124813}: As the second elseif will be executed if the Fee Code is Client Pays no matter what, add a new elseif to bypass it
34
+ elseif vBaseFundingHoldbackDisburse.isKindOf(FeeCodeDeductionOrDisburse) and not vBaseFundingHoldbackDisburse.mIsLenderPays(pAdvanceDetails)
35
+ and vBaseFundingHoldbackDisburse.FeeCodeDeductionOrDisburse.myFeeCode.mGetANotIncludedInAdvStm then
36
+ continue;
37
+ // #HTB-1433 SaulL 07Nov22 {124813}:mIsCommitmentDeduction checked twice, positive way and negative way. So, no matter what, it'll execute for Client Pays Fee Code
38
  elseif vBaseFundingHoldbackDisburse.mIsAdvanceDeduction(pAdvanceDetails) or vBaseFundingHoldbackDisburse.mIsCommitmentDeduction then
39
  vAmount := vAmount - vBaseFundingHoldbackDisburse.mGetAmount;
40
+
41
  endif;
42
 
43
  endforeach;
C://PATCH_CONTROL//FROM/AnnualStatementAddress_mAnonymize.txt ADDED
@@ -0,0 +1,67 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mAnonymize(pConfigurator: AnonymizeConfigurator): Boolean updating;
2
+ /*************************************************************************************************
3
+ Date Created: 18 October 2022
4
+ Created By: MarkusJ
5
+ Method Name: mAnonymize
6
+ Patch Number: 124733
7
+ Ticket: HTB-1482
8
+ Purpose: Anonymize Annual Statement Address (From Scratch Since No Client Link)
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ----------- --------------------------------------------------------------
12
+ ddMMMyy
13
+ *************************************************************************************************/
14
+
15
+ vars
16
+ vAnonymizer : AnonymizeConfigurator;
17
+ vCanAnonymize : Boolean;
18
+ vFullAddress : String;
19
+ vName : String;
20
+ vCity : String;
21
+ vMailingAddress : String;
22
+ vPostalCode : String;
23
+ vProvince : String;
24
+ vIsPropertyAddress : Boolean;
25
+ vReceiveDoc : Boolean;
26
+ vAccountClient : AccountClient;
27
+ vAddress : Address;
28
+ vResult : Boolean;
29
+ vGeneratedAddress : Address;
30
+ vClient : Client;
31
+ begin
32
+ vAnonymizer := pConfigurator;
33
+ vCanAnonymize := inheritMethod(vAnonymizer);
34
+
35
+ if not vCanAnonymize then
36
+ return false;
37
+ endif;
38
+
39
+ vResult := true;
40
+
41
+ vGeneratedAddress := vAnonymizer.generateStreetAddress;
42
+ vCity := aCity;
43
+ // #HTB-432 Gaurav 08Dec20 {123290} : Keep Postal Code anon rules consistent.
44
+ vPostalCode := aPostalCode[1:3].String & "0X0";
45
+ vProvince := aProvince;
46
+ vGeneratedAddress.mSetStandardDetails(vCity,app.mGetLMSRoot.allCountryCodes[KN_CANADA].allProvinces[vProvince],vPostalCode,vGeneratedAddress.myCountryNEW);
47
+ vFullAddress := vGeneratedAddress.mBuildAddress(CrLf,false);
48
+ vMailingAddress := vGeneratedAddress.mBuildAddress(" ",true);
49
+
50
+ vIsPropertyAddress := aIsPropertyAddr;
51
+ vName := myAnnualStatementData.aBorrowerNames;
52
+
53
+ mSetDetails(vFullAddress,
54
+ vName,
55
+ vCity,
56
+ vMailingAddress,
57
+ vPostalCode,
58
+ vProvince,
59
+ vIsPropertyAddress,
60
+ vReceiveDoc);
61
+
62
+
63
+ return vResult;
64
+ epilog
65
+ //#10888 Gaurav 14Aug19 {122333} : Purge transients.
66
+ delete vGeneratedAddress;
67
+ end;
C://PATCH_CONTROL//FROM/AnnualStatementData_mAnonymize.txt ADDED
@@ -0,0 +1,43 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mAnonymize(pConfigurator: AnonymizeConfigurator): Boolean updating;
2
+ /*************************************************************************************************
3
+ Date Created: 18 October 2022
4
+ Created By: MarkusJ
5
+ Method Name: mAnonymize
6
+ Patch Number: 124733
7
+ Ticket: HTB-1482
8
+ Purpose: Anonymize AnnualStatementData (Client Names/ Addresses)
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ----------- --------------------------------------------------------------
12
+ ddMMMyy
13
+ *************************************************************************************************/
14
+
15
+ vars
16
+ vAnonymizer : AnonymizeConfigurator;
17
+ vCanAnonymize : Boolean;
18
+ vResult : Boolean;
19
+ vAnnualStatementAddress : AnnualStatementAddress;
20
+
21
+ begin
22
+ vAnonymizer := pConfigurator;
23
+ vCanAnonymize := inheritMethod(vAnonymizer);
24
+
25
+ if not vCanAnonymize then
26
+ return false;
27
+ endif;
28
+
29
+ //Client's are Anonymized at this point in heriarchy of Anonymizing
30
+ aBorrowerNames := mBuildClientNames(myAccount);
31
+
32
+ foreach vAnnualStatementAddress in allAddresses do
33
+ vAnnualStatementAddress.mAnonymize(vAnonymizer);
34
+ endforeach;
35
+
36
+ vResult := true;
37
+
38
+ return vResult;
39
+
40
+ epilog
41
+
42
+
43
+ end;
C://PATCH_CONTROL//{TO → FROM}/Company_class_info.txt RENAMED
@@ -161,7 +161,7 @@ Terminology Type: CONTACT_TIME
161
 
162
  NAME:myPrimaryLanguage
163
  LEN:12
164
- PrimaryLanguage
165
 
166
  Terminology Type: LANGUAGE
167
 
161
 
162
  NAME:myPrimaryLanguage
163
  LEN:12
164
+ Contact Language
165
 
166
  Terminology Type: LANGUAGE
167
 
C://PATCH_CONTROL//{TO → FROM}/Contact_class_info.txt RENAMED
@@ -161,7 +161,7 @@ Terminology Type: CONTACT_TIME
161
 
162
  NAME:myPrimaryLanguage
163
  LEN:12
164
- PrimaryLanguage
165
 
166
  Terminology Type: LANGUAGE
167
 
161
 
162
  NAME:myPrimaryLanguage
163
  LEN:12
164
+ Contact Language
165
 
166
  Terminology Type: LANGUAGE
167
 
C://PATCH_CONTROL//FROM/CoreCombo_mRemoveItem.txt ADDED
@@ -0,0 +1,18 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mRemoveItem(pLabel : String) updating;
2
+ /*************************************************************************************************
3
+ Date Created: 19 July 2022
4
+ Created By: NormanA
5
+ Method Name: mRemoveItem
6
+ Patch Number: 124533
7
+ Ticket: HTB-1317
8
+ Purpose: Remove an Item from itemObject drop down list
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ------------ --------------------------------------------------------------
12
+ *************************************************************************************************/
13
+ vars
14
+ vIdx : Integer;
15
+ begin
16
+ vIdx := findString(1, pLabel);
17
+ removeItem(vIdx);
18
+ end;
C://PATCH_CONTROL//{TO → FROM}/CoreCurrencyTextBox_mPositionCurrencyLabel.txt RENAMED
@@ -26,7 +26,8 @@ begin
26
  myCurrencyLabel.left := left - 10;
27
  myCurrencyLabel.top := top + 2;
28
 
29
- if not myCurrencyLabel.visible or not aDisplayCurrencySymbol then
 
30
  myCurrencyLabel.left := -100;
31
  myCurrencyLabel.top := -100;
32
  endif;
26
  myCurrencyLabel.left := left - 10;
27
  myCurrencyLabel.top := top + 2;
28
 
29
+ // #12483 JustinS 08Oct19 {122521} : added visibility check for field so dollar sign only appears when field is visible
30
+ if not myCurrencyLabel.visible or not aDisplayCurrencySymbol or not visible then
31
  myCurrencyLabel.left := -100;
32
  myCurrencyLabel.top := -100;
33
  endif;
C://PATCH_CONTROL//{TO → FROM}/CoreDateTextBox_paint.txt RENAMED
@@ -12,7 +12,9 @@ begin
12
  endif;
13
 
14
  myButton.parent := parent ;
 
15
  myButton.visible := visible;
 
16
 
17
  // if visible and aButtonDisplayed and aButtonPicture <> null then
18
  // if not isInPainter and not rButton.visible then
12
  endif;
13
 
14
  myButton.parent := parent ;
15
+ if myButton.visible <> visible then
16
  myButton.visible := visible;
17
+ endif;
18
 
19
  // if visible and aButtonDisplayed and aButtonPicture <> null then
20
  // if not isInPainter and not rButton.visible then
C://PATCH_CONTROL//{TO → FROM}/CoreSchema_mDoCommitActions.txt RENAMED
@@ -22,7 +22,8 @@ begin
22
  //10965 - ThabanS - 21Nov2018c
23
  if not app.mIsEnvironmentProduction and app.myCnLog <> null and allCommitPrimary.size > 0 then
24
  vLog := true;
25
- app.myCnLog.log(app.actualTime.display & Tab & app.name & Tab & app.userName & Tab & ' mCommitAction Start');
 
26
  app.myCnLog.log(process.getCallStackInfo);
27
  endif;
28
 
22
  //10965 - ThabanS - 21Nov2018c
23
  if not app.mIsEnvironmentProduction and app.myCnLog <> null and allCommitPrimary.size > 0 then
24
  vLog := true;
25
+ //ChristopherD #HTB-43 14-01-2020 {122715} : Thaban suggested that removing this line is fine, and it does fix it.
26
+ //app.myCnLog.log(app.actualTime.display & Tab & app.name & Tab & app.userName & Tab & ' mCommitAction Start');
27
  app.myCnLog.log(process.getCallStackInfo);
28
  endif;
29
 
C://PATCH_CONTROL//{TO → FROM}/CoreSchema_mJadeBatchExtract.txt RENAMED
@@ -4,7 +4,7 @@ mJadeBatchExtract(patch : String) serverExecution;
4
  //
5
  // Purpose : Instructs jade to perform a batch extract of provided patches on the server.
6
  //
7
- // Notes : mJadeBatchExtract:
8
  //
9
  // Date Who Bug# Description
10
  // ------- --- ----- ------------------------------------------------------------------------
@@ -38,7 +38,12 @@ vars
38
  //Gaurav 18-10-2018 : Variable to store intermediate log messages.
39
  message : String;
40
 
 
 
 
41
  begin
 
 
42
  //Gaurav 18-10-2018 : Open log file again on this node.
43
  log := mCreateLogFileServer('E:\PatchExtracts\', 'RemotePatchExtractLog');
44
 
@@ -144,6 +149,7 @@ begin
144
  //Gaurav 15-10-2018 : Cleaned up implementation. Sectioned implementation into more concise logical segments.
145
  cmdLine := batchFileName;
146
  cmdLine.mAppendv2(patch,null,true);
 
147
 
148
  //Gaurav 05-10-2018 : Invoke server process and await completion in order to complete creation of necessary files.
149
  result := app.mRunCommandLineDB(cmdLine, true);
4
  //
5
  // Purpose : Instructs jade to perform a batch extract of provided patches on the server.
6
  //
7
+ // Notes : mJadeBatchExtract: OK TO PROMOTE
8
  //
9
  // Date Who Bug# Description
10
  // ------- --- ----- ------------------------------------------------------------------------
38
  //Gaurav 18-10-2018 : Variable to store intermediate log messages.
39
  message : String;
40
 
41
+ // MarkusJ 24May19 {122249} : Server name parameter for name of current server
42
+ serverNameArgument : String;
43
+
44
  begin
45
+ serverNameArgument := "DEV_HTB_DB";
46
+
47
  //Gaurav 18-10-2018 : Open log file again on this node.
48
  log := mCreateLogFileServer('E:\PatchExtracts\', 'RemotePatchExtractLog');
49
 
149
  //Gaurav 15-10-2018 : Cleaned up implementation. Sectioned implementation into more concise logical segments.
150
  cmdLine := batchFileName;
151
  cmdLine.mAppendv2(patch,null,true);
152
+ cmdLine.mAppendv2(serverNameArgument,null,true);
153
 
154
  //Gaurav 05-10-2018 : Invoke server process and await completion in order to complete creation of necessary files.
155
  result := app.mRunCommandLineDB(cmdLine, true);
C://PATCH_CONTROL//FROM/CoreSchema_mRemotePatchCopy.txt ADDED
@@ -0,0 +1,179 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mRemotePatchCopy(patch : String; environment : String) serverExecution;
2
+ //
3
+ // Created : 09 October 2018 by Gaurav Chaudhari
4
+ //
5
+ // Purpose : Copies patch extracts remotely to different networked servers.
6
+ //
7
+ // Notes : mRemotePatchCopy:
8
+ //
9
+ // Date Who Bug# Description
10
+ // ------- --- ----- ------------------------------------------------------------------------
11
+ // 09-10-2018 Gaurav Dev Enhancement - Remote Patch Extracts
12
+
13
+
14
+ vars
15
+ copyBatchFile : File;
16
+ copyBatchFileName : String;
17
+ cmdLine : String;
18
+ sourcePath : String;
19
+ destination : String;
20
+ log : File;
21
+ result : Integer;
22
+ //Gaurav 23-10-2018
23
+ message : String;
24
+ date : String;
25
+ time : String;
26
+ //Gaurav 06-11-2018
27
+ environmentName : String;
28
+ //Gaurav 13-11-2018
29
+ dropboxPath : String;
30
+
31
+ begin
32
+ //Gaurav 18-10-2018 : Open log file again on this node.
33
+ log := mCreateLogFileServer('E:\PatchExtracts\', 'RemotePatchExtractLog');
34
+
35
+ //Gaurav 09-10-2018 : Mapped remote patch extract batch file.
36
+ create copyBatchFile transient;
37
+ copyBatchFileName := 'E:\PatchExtracts\GauravPatchCopy.bat';
38
+ copyBatchFile.fileName := copyBatchFileName;
39
+ sourcePath := "E:\PatchExtracts\" & patch;
40
+
41
+ //Gaurav 18-10-2018 : Set the full destination path for the copy task.
42
+ //Gaurav 29-10-2018 : Format the output directory to retain copy information.
43
+ date := app.mGetSystemDate.format('yyyyMMdd');
44
+ time := app.mGetSystemTime.format('HHmmss');
45
+
46
+ //Gaurav 29-10-2018 : Format Output directory path with date/time information.
47
+ //Gaurav 06-11-2018 : Adjust destination path to route to global Release folder on Azure.
48
+ //Gaurav 09-11-2018 : Testing for W1/d360db03 configurations.
49
+ //Gaurav 13-11-2018 : Dropbox build path integration included.
50
+ environment.mStripLastDirectory2(environmentName);
51
+ destination := environment.mGetBaseDirectory;
52
+ dropboxPath := 'E:\Dropbox\'; //Base directory path.
53
+
54
+ //Gaurav 13-11-2018 : Added dropbox path.
55
+ destination.mAppendv2('Release\',null,false);
56
+ dropboxPath.mAppendv2('Release\',null,false);
57
+ destination.mAppendv2(environmentName & '\',null,false);
58
+ dropboxPath.mAppendv2(environmentName & '\',null,false);
59
+ //destination := environment;
60
+ destination.mAppendv2(patch,null,false);
61
+ destination.mAppendv2(date,DELIM_HYPHEN,false);
62
+ destination.mAppendv2(time,DELIM_HYPHEN,false);
63
+
64
+ //Gaurav 13-11-2018 : Add patch information to dropbox path.
65
+ dropboxPath.mAppendv2(patch,null,false);
66
+ dropboxPath.mAppendv2(date,DELIM_HYPHEN,false);
67
+ dropboxPath.mAppendv2(time,DELIM_HYPHEN,false);
68
+
69
+ cmdLine := copyBatchFileName;
70
+ cmdLine.mAppendv2(sourcePath,null,true);
71
+ cmdLine.mAppendv2(destination,null,true);
72
+
73
+ //Gaurav 01-11-2018 : TEST Network Errors.
74
+ //cmdLine.mAppendv2('C:\Temp\DEV\999999',null,true);
75
+
76
+ //foreach environment in environments do
77
+ /*Gaurav 23-10-2018 : Path resolution testing successful.
78
+ mLog(log,'--');
79
+ mLog(log,'Environment: ' & environment);
80
+ //Gaurav 06-11-2018 : Test path adjustments for destination path.
81
+ mLog(log,'EnvironmentName: ' & environmentName);
82
+ mLog(log,'Patch: ' & patch);
83
+ mLog(log,'Destination: ' & destination);
84
+ mLog(log,'CmdLine: ' & cmdLine);
85
+ mLog(log,'--');
86
+ //Gaurav 23-10-2018*/
87
+
88
+ //Gaurav 29-10-2018 : Code segment enables RemotePatchCopy for Azure.
89
+ //Gaurav 18-10-2018 : Use provided information and kick off process on server to copy.
90
+ result := app.mRunCommandLineDB(cmdLine, true);
91
+ //Gaurav 06-11-2018 : Testing for destination path modifications.
92
+ //result := 1;
93
+
94
+ //Gaurav 15-10-2018 : CommandLine external process node errors.
95
+ if result = node.ExternalProcess_InvalidParam then
96
+ message := "Something is wrong with node.createExternalProcess arguments";
97
+ elseif result = node.ExternalProcess_InitiateFailed then
98
+ message := "Could not start " & cmdLine;
99
+ elseif result = node.ExternalProcess_InitiateOK then
100
+
101
+ //Gaurav 23-10-2018 : Successful Copy. Log success message in log.
102
+ message := 'Patch #' & patch & ' copied to "' & destination & '"';
103
+
104
+ elseif result = node.ExternalProcess_Failed then
105
+ message := "Modal command '" & cmdLine & "' started, but died under abnormal conditions";
106
+ elseif result = node.ExternalProcess_Successful then
107
+ message := "Modal command '" & cmdLine & "' started, and exited with " & result.String & " (ExternalProcess_Successful)";
108
+ endif;
109
+ //Gaurav 15-10-2018//
110
+
111
+ //Gaurav 23-10-2018 : External process node feedback into log files.
112
+ write message;
113
+ mLog(log,message);
114
+ //Gaurav 29-10-2018//
115
+
116
+ //Gaurav 13-11-2018 : Move the corresponding patch files over to Dropbox directory as well.
117
+ cmdLine := '';
118
+ cmdLine := copyBatchFileName;
119
+ cmdLine.mAppendv2(sourcePath,null,true);
120
+ cmdLine.mAppendv2(dropboxPath,null,true);
121
+
122
+ //Gaurav 13-11-2018 : Exec dropbox copy.
123
+ result := app.mRunCommandLineDB(cmdLine, true);
124
+
125
+ //Gaurav 15-10-2018 : CommandLine external process node errors.
126
+ if result = node.ExternalProcess_InvalidParam then
127
+ message := "Something is wrong with node.createExternalProcess arguments";
128
+ elseif result = node.ExternalProcess_InitiateFailed then
129
+ message := "Could not start " & cmdLine;
130
+ elseif result = node.ExternalProcess_InitiateOK then
131
+
132
+ //Gaurav 13-11-2018 : Successful Copy to Dropbox location.
133
+ message := 'Patch #' & patch & ' copied to "' & dropboxPath & '"';
134
+
135
+ elseif result = node.ExternalProcess_Failed then
136
+ message := "Modal command '" & cmdLine & "' started, but died under abnormal conditions";
137
+ elseif result = node.ExternalProcess_Successful then
138
+ message := "Modal command '" & cmdLine & "' started, and exited with " & result.String & " (ExternalProcess_Successful)";
139
+ endif;
140
+ //Gaurav 15-10-2018//
141
+
142
+ //Gaurav 13-11-2018 : Log the dropbox copy into primary logging file.
143
+ write message;
144
+ mLog(log,message);
145
+ //Gaurav 13-11-2018//
146
+
147
+ //Gaurav 13-11-2018 : Automatic archive/compression of files.
148
+ //TODO IF REQ: Sample commandline argument to trigger automatic archival of directories contents.
149
+ cmdLine := '"C:\Program Files\7-Zip\7z.exe" a 121619.7z E:\Dropbox\Release\WealthOne_QA_DB\121619-20181113-105738\*';
150
+
151
+ //Gaurav 18-10-2018 : Add logging HERE.
152
+
153
+ //cmdLine.mStripLastDirectory
154
+
155
+ //app.mRunCommandLineDB(,true);
156
+
157
+ //destination := environment & patch;
158
+ //app.mRunCommandLineDB('echo destPath: ' & destination & ' >> D:\PatchExtracts\test.txt',true);
159
+
160
+ //cmdLine := copyBatchFileName & DELIM_SINGLESPACE &
161
+ //sourcePath & DELIM_SINGLESPACE &
162
+ //environment;
163
+
164
+ //cmdLine.mAppendv2(destinationPath & "'",null,true);
165
+ //cmdLine.mAppendv2(xcopyArgs,null,true);
166
+
167
+ //works
168
+ //'D:\PatchExtracts\GauravPatchCopy.bat D:\PatchExtracts\121458 \\10.10.210.39\e$\~Enviroments\DELTA_QA_Q1_DB\Release\121458'
169
+ //app.mRunCommandLineDB(cmdLine,false);
170
+
171
+
172
+ //endforeach;
173
+
174
+ //Gaurav 18-10-2018 : Always close log file prior to leaving the node.
175
+ log.close;
176
+
177
+ epilog
178
+
179
+ end;
C://PATCH_CONTROL//{TO → FROM}/CoreSchema_mSendMailv3.txt RENAMED
@@ -25,7 +25,10 @@ vars
25
  vFriendly,vFrom,vTo : String;
26
 
27
  vCode : Integer;
 
 
28
  vDotNetSecurityProtocolString : String;
 
29
  begin
30
 
31
  if app.myOperationControl = null then
@@ -69,9 +72,9 @@ begin
69
  pReplyTo.StringUtf8,
70
  pFiles.StringUtf8,
71
  pIsHTML,
72
- //#HTB-1423 SaulL 04Apr22 {124300}: Bring in LMS-278
73
- //LMS-278 BrandonS 04May21 {123650}: Get the protocol string from the ini file and pass it
74
- //Delta360.Commons will accept as a string and parse to needed type, must use SecurityProtocolType enum types, ex 'Ssl3'
75
  vDotNetSecurityProtocolString.StringUtf8).String;
76
 
77
  write vError;
25
  vFriendly,vFrom,vTo : String;
26
 
27
  vCode : Integer;
28
+ // #HTB-1423 SaulL 04Apr22 {124300}: Bring in LMS-278
29
+ //LMS-278 BrandonS 04May21 {123650} : get the protocol string from the ini file and pass it. Delta360.Commons will accept as a string and parse to needed type, must use SecurityProtocolType enum types, ex 'Ssl3'.
30
  vDotNetSecurityProtocolString : String;
31
+
32
  begin
33
 
34
  if app.myOperationControl = null then
72
  pReplyTo.StringUtf8,
73
  pFiles.StringUtf8,
74
  pIsHTML,
75
+ //// #HTB-1423 SaulL 04Apr22 {124300}: Bring in LMS-278
76
+ //LMS-278 BrandonS 04May21 {123650} : get the protocol string from the ini file and pass it.
77
+ //Delta360.Commons will accept as a string and parse to needed type, must use SecurityProtocolType enum types, ex 'Ssl3'.
78
  vDotNetSecurityProtocolString.StringUtf8).String;
79
 
80
  write vError;
C://PATCH_CONTROL//{TO → FROM}/CoreTextBox_visible.txt RENAMED
@@ -13,18 +13,18 @@ vars
13
  begin
14
 
15
  inheritMethod( set, value);
16
- //JADE 2018 FIX - OK TO PROMOTE
17
  if app.name = "Jade" then return; endif;
18
- visible := value;
19
 
20
  if set then
21
- if myCoreLabel <> null then
 
22
  myCoreLabel.visible := value;
23
  endif;
24
  endif;
25
 
 
26
  paint(self);
27
-
28
  epilog
29
 
30
  end;
13
  begin
14
 
15
  inheritMethod( set, value);
 
16
  if app.name = "Jade" then return; endif;
 
17
 
18
  if set then
19
+ visible := value;
20
+ if myCoreLabel <> null and myCoreLabel.visible <> value then
21
  myCoreLabel.visible := value;
22
  endif;
23
  endif;
24
 
25
+ if set then
26
  paint(self);
27
+ endif;
28
  epilog
29
 
30
  end;
C://PATCH_CONTROL//{TO → FROM}/Division_class_info.txt RENAMED
@@ -225,7 +225,7 @@ LEN:12
225
 
226
  NAME:myDivisionType
227
  LEN:12
228
-
229
 
230
 
231
  NAME:myLender
225
 
226
  NAME:myDivisionType
227
  LEN:12
228
+ Divisions
229
 
230
 
231
  NAME:myLender
C://PATCH_CONTROL//{TO → FROM}/Employee_class_info.txt RENAMED
@@ -240,7 +240,7 @@ LEN:12
240
 
241
  NAME:allDivision
242
  LEN:12
243
- Legacy1
244
 
245
 
246
  NAME:allDivisionsByType
240
 
241
  NAME:allDivision
242
  LEN:12
243
+
244
 
245
 
246
  NAME:allDivisionsByType
C://PATCH_CONTROL//{TO → FROM}/FeeCode_class_info.txt RENAMED
@@ -149,6 +149,16 @@ LEN:1
149
 
150
 
151
 
 
 
 
 
 
 
 
 
 
 
152
  NAME:aParamsJSON
153
  LEN:-1
154
  JSON Params
149
 
150
 
151
 
152
+ NAME:aNotIncludedInAdvStm
153
+ LEN:1
154
+ Not Included in Advance Statement
155
+ Date Created: 04 November 2022
156
+ Created By: SaulL
157
+ Property Name: aNotIncludedInAdvStm
158
+ Patch Number: 124813
159
+ Ticket: HTB-1433
160
+ Purpose: To indidcate whether the fee code should be included in the Advance Statement
161
+
162
  NAME:aParamsJSON
163
  LEN:-1
164
  JSON Params
C://PATCH_CONTROL//FROM/FeeCode_mGetANotIncludedInAdvStm.txt ADDED
@@ -0,0 +1,19 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mGetANotIncludedInAdvStm() : Boolean;
2
+ /*************************************************************************************************
3
+ Date Created: 04 November 2022
4
+ Created By: SaulL
5
+ Method Name: mGetANotIncludedInAdvStm
6
+ Patch Number: 124813
7
+ Ticket: HTB-1433
8
+ Purpose: Getter method for aNotIncludedInAdvStm
9
+ Date Ticket Patch Who Description
10
+ ------- ------ ------ ----------- --------------------------------------------------------------
11
+ ddMMMyy
12
+ *************************************************************************************************/
13
+ vars
14
+
15
+ begin
16
+ return aNotIncludedInAdvStm;
17
+ epilog
18
+
19
+ end;
C://PATCH_CONTROL//{TO → FROM}/FeeCode_mSetDetails.txt RENAMED
@@ -32,7 +32,9 @@ mSetDetails( pName : String;
32
  // #HTB-738 MichaelS 20Jan21 {123422} : Add new multiply term type
33
  pMultiplyTerm : Terminology;
34
  // #CTC-419 ChristopherD 30Nov20 {123305} : Adding to a new attribute
35
- pFullyAmortizeOnSaleToInvestor : Boolean) updating;
 
 
36
 
37
  //
38
  // Created : 18 February 2016 by ThabanS
@@ -43,7 +45,7 @@ mSetDetails( pName : String;
43
  //
44
  // Date Who Bug# Description
45
  // ------- --- ----- ------------------------------------------------------------------------
46
- //
47
 
48
  vars
49
  vObjectsKeep,vObjDel : ObjectArray;
@@ -77,6 +79,8 @@ begin
77
  aAutoAddFeeOnFund := pAutoAddOnFund;
78
  aRestrictByRole := pRestrictByRole;
79
  aInlcudeInAPR := pIncludeinAPR;
 
 
80
 
81
  // #HTB-1355 MarkusJ 25Apr22 {124293} : DEPRICATED ATTRIBUTE aFullyAmortizeOnSaleToInvestor
82
  // #CTC-419 ChristopherD 30Nov20 {123305} : Adding to a new attribute
32
  // #HTB-738 MichaelS 20Jan21 {123422} : Add new multiply term type
33
  pMultiplyTerm : Terminology;
34
  // #CTC-419 ChristopherD 30Nov20 {123305} : Adding to a new attribute
35
+ pFullyAmortizeOnSaleToInvestor : Boolean;
36
+ // #HTB-1433 SaulL 04Nov22 {124813}: Adding a new property, aNotIncludedInAdvStm
37
+ pNotIncludedInAdvStm : Boolean) updating;
38
 
39
  //
40
  // Created : 18 February 2016 by ThabanS
45
  //
46
  // Date Who Bug# Description
47
  // ------- --- ----- ------------------------------------------------------------------------
48
+ // 04Nov22 SaulL HTB-1433 add another property - aNotIncludedInAdvStm
49
 
50
  vars
51
  vObjectsKeep,vObjDel : ObjectArray;
79
  aAutoAddFeeOnFund := pAutoAddOnFund;
80
  aRestrictByRole := pRestrictByRole;
81
  aInlcudeInAPR := pIncludeinAPR;
82
+ //#HTB-1433 SaulL 04Nov22 {124813}: Adding a new property, aNotIncludedInAdvStm
83
+ aNotIncludedInAdvStm := pNotIncludedInAdvStm;
84
 
85
  // #HTB-1355 MarkusJ 25Apr22 {124293} : DEPRICATED ATTRIBUTE aFullyAmortizeOnSaleToInvestor
86
  // #CTC-419 ChristopherD 30Nov20 {123305} : Adding to a new attribute
C://PATCH_CONTROL//{TO → FROM}/FinancialTxnAgent_trxCreateGLTxn.txt RENAMED
@@ -20,7 +20,7 @@ vars
20
  vAudit: AuditManager;
21
  begin
22
  //app.mWrite('ThabanS', CrLf & method.name & " Start" & CrLf);
23
- if pGLAccountCode <> null and pAction <> null then
24
  app.mWrite('ThabanS', "GL Create for " & pGLAccountCode.aName & Tab & pAction.mGetKeyName & Tab & pAmount.display);
25
  endif;
26
 
20
  vAudit: AuditManager;
21
  begin
22
  //app.mWrite('ThabanS', CrLf & method.name & " Start" & CrLf);
23
+ if pGLAccountCode <> null then
24
  app.mWrite('ThabanS', "GL Create for " & pGLAccountCode.aName & Tab & pAction.mGetKeyName & Tab & pAmount.display);
25
  endif;
26
 
C://PATCH_CONTROL//{TO → FROM}/FinancialTxnAgent_trxPostPaymentRealization.txt RENAMED
@@ -246,9 +245,11 @@ begin
246
  //if vServicingComponent.mGetProduct.mGetCompoundFrequencyType(true) <> KN_CMPD_FREQ_MONTHLY then
247
  if vServicingComponent.mIsMortgageComponent then
248
  vAccrualDetail := vServicingComponent.mGetAccrualDetails;
 
249
  // #HTB-1065 DarrellB 07-June-22 {124328}: add fee accrual
250
  //9966 - ThabanS - 18May2018 - add standby
251
- trxUpdateLendingCompAccrual(vServicingComponent.MortgageComponent, vAccrualDetail.aAccruedUpToDate, 0.00, 0.00, 0, false, 0.00);
 
252
  endif;
253
  //endif;
254
  endif;
@@ -297,7 +298,8 @@ begin
297
  0,
298
  0,
299
  false,
300
- null);
 
301
 
302
  endif;
303
  endforeach;
245
  //if vServicingComponent.mGetProduct.mGetCompoundFrequencyType(true) <> KN_CMPD_FREQ_MONTHLY then
246
  if vServicingComponent.mIsMortgageComponent then
247
  vAccrualDetail := vServicingComponent.mGetAccrualDetails;
248
+ // #HTB-1603 DarrellB 22-September-22 {124692}: don't clear fee interest
249
  // #HTB-1065 DarrellB 07-June-22 {124328}: add fee accrual
250
  //9966 - ThabanS - 18May2018 - add standby
251
+ //trxUpdateLendingCompAccrual(vServicingComponent.MortgageComponent, vAccrualDetail.aAccruedUpToDate, 0.00, 0.00, 0, false, 0.00);
252
+ trxUpdateLendingCompAccrual(vServicingComponent.MortgageComponent, vAccrualDetail.aAccruedUpToDate, 0.00, 0.00, 0, false, vAccrualDetail.getAccruedFeeInterest);
253
  endif;
254
  //endif;
255
  endif;
298
  0,
299
  0,
300
  false,
301
+ // #HTB-1603 DarrellB 22-September-22 {124692}: don't clear fee interest
302
+ vExtComp.myAccrualDetails.getAccruedFeeInterest);
303
 
304
  endif;
305
  endforeach;
C://PATCH_CONTROL//{TO → FROM}/FinancialTxnAgent_trxRealizeFeeInterest.txt RENAMED
@@ -48,6 +48,7 @@ vars
48
 
49
  // #HTB-1065 DarrellB 07-June-22 {124328}
50
  vFeeAccrual : Decimal[17,5];
 
51
  begin
52
  mInitTrxTransaction;
53
 
@@ -111,10 +112,37 @@ begin
111
  endif;
112
  endif;
113
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
114
  vFeeIntPost := vFeeInterestAmt;
115
  if vFeeIntPost < 0 then vFeeIntPost := 0; endif;
 
116
 
117
- //is this correct?
118
  vIsLatePymtInt := vFeeIntPost <> 0;
119
 
120
  vAmounts.add(vFeeIntPost);
@@ -190,6 +218,9 @@ begin
190
  epilog
191
  delete vTxnBuckets;
192
  delete vAmounts;
 
 
 
193
 
194
  return vFinancialTxn;
195
  end;
48
 
49
  // #HTB-1065 DarrellB 07-June-22 {124328}
50
  vFeeAccrual : Decimal[17,5];
51
+ vArrears : DecimalArray;
52
  begin
53
  mInitTrxTransaction;
54
 
112
  endif;
113
  endif;
114
 
115
+ // #HTB-1603 MarkusJ 26Sep22 {124696} : Fix Backdated Fees/ Fee Accrual Start
116
+ if pAccount <> null then
117
+ create vArrears transient;
118
+ pAccount.mGetBackDatedArrears(pEffectiveDate, pTxnBuckets, vArrears);
119
+ vFeeInterestAmt := vFeeInterestAmt + vArrears[vIndex];
120
+ endif;
121
+ //Darrell Qs:
122
+ // #HTB-1603 DarrellB 23-September-22 {124692}: if there's been a backdated fee, we need to accrue fee interest to cover that
123
+ /* Doesn't Accrue Backdates, Accrued Date on Loan will be already at curent date
124
+ if pAccount <> null
125
+ and pAccount.mCalculateFeeInterest(pEffectiveDate) <> 0 then
126
+ vFeeInterestAmt := vFeeInterestAmt + pAccount.mCalculateFeeInterest(pEffectiveDate);
127
+ endif;
128
+ */
129
+ // This doesn't work. vTxnCalc.allActualBucketsByHeiarchy is empty, so it returns 0 in mCalcArrearsDue_V2, and then I get a black box on the next line
130
+ // I don't know if what I'm trying to do is correct. How much accrued fee interest do we want to realize?
131
+ /*
132
+ create vTxnCalc transient;
133
+ vTxnCalc.mInit(pAccount.mySubLedger);
134
+ vTxnCalc.mSetTxnDefinition(KN_SYSTEM, BN_FEE_INTEREST, KN_DEBIT, TxnDefinitionServicing.class);
135
+ vTxnCalc.mCalcArrearsDue_V2(pEffectiveDate);
136
+ */
137
+ // this might be double counted, and if the transaction is paying any of it, that will probably need to be subtracted too
138
+ // Or if it's from a backdated fee, do we want to post the full accrued amount?
139
+ //vFeeInterestAmt := vFeeInterestAmt + vTxnCalc.allArrearsDue[vIndex];
140
+ //END Darrell Qs
141
+
142
  vFeeIntPost := vFeeInterestAmt;
143
  if vFeeIntPost < 0 then vFeeIntPost := 0; endif;
144
+ // #HTB-1603 MarkusJ 26Sep22 {124696} : END
145
 
 
146
  vIsLatePymtInt := vFeeIntPost <> 0;
147
 
148
  vAmounts.add(vFeeIntPost);
218
  epilog
219
  delete vTxnBuckets;
220
  delete vAmounts;
221
+ // #HTB-1603 DarrellB 23-September-22 {124692}
222
+ delete vTxnCalc;
223
+ delete vArrears;
224
 
225
  return vFinancialTxn;
226
  end;
C://PATCH_CONTROL//{TO → FROM}/FormCreatePoolingRun_initialize.txt RENAMED
@@ -12,6 +12,7 @@ vars
12
  //vPool : Pool;
13
  vComponentSel : ComponentSelection;
14
  vDiff : Decimal[ 12, 4];
 
15
 
16
  begin
17
 
@@ -27,7 +28,7 @@ begin
27
 
28
  //cboPoolingPlan.listCollection( app.mySelectionRoot.allSecuritizationPlans, true, 0);
29
  cboPoolingPlan.displayCollection( app.mySelectionRoot.allSecuritizationPlans, true, 0, null, POOL_CRITERIA_ONLY);
30
- cboPoolingPlan.listIndex := 1;
31
  //cboPoolingPlan.enabled := false;
32
 
33
  // cboPackageSelect.displayCollection ( app.myLender.allPackages, true, 0, null, $Default_Inventory_Package);
@@ -93,6 +94,18 @@ begin
93
  txtSearchLimit.text := vDiff.mDisplayWithoutTrailingZeros;//myCurrentLocale.mFormatCurrency( vDiff, false);
94
  endif;
95
 
 
 
 
 
 
 
 
 
 
 
 
 
96
  create allResults transient;
97
 
98
  // 10093 MuhammadN 09Oct2018 - Changed to use method instead of checking keyname for "3rd Party MBS"
12
  //vPool : Pool;
13
  vComponentSel : ComponentSelection;
14
  vDiff : Decimal[ 12, 4];
15
+ vListIndex : Integer;
16
 
17
  begin
18
 
28
 
29
  //cboPoolingPlan.listCollection( app.mySelectionRoot.allSecuritizationPlans, true, 0);
30
  cboPoolingPlan.displayCollection( app.mySelectionRoot.allSecuritizationPlans, true, 0, null, POOL_CRITERIA_ONLY);
31
+ //cboPoolingPlan.listIndex := 1;
32
  //cboPoolingPlan.enabled := false;
33
 
34
  // cboPackageSelect.displayCollection ( app.myLender.allPackages, true, 0, null, $Default_Inventory_Package);
94
  txtSearchLimit.text := vDiff.mDisplayWithoutTrailingZeros;//myCurrentLocale.mFormatCurrency( vDiff, false);
95
  endif;
96
 
97
+ // #HTB-1479 NormanA 03Nov22 {124658} : set the default pooling plan of the component in combo box
98
+ vListIndex := 1;
99
+ if vComponentSel <> null and vComponentSel.isKindOf(Pool) then
100
+ if vComponentSel.Pool.myInvestorType <> null and vComponentSel.Pool.myInvestorType.mGetDefaultPool <> null then
101
+ foreach vListIndex in 1 to cboPoolingPlan.getCollection.size do
102
+ cboPoolingPlan.listIndex := vListIndex;
103
+ if cboPoolingPlan.text = vComponentSel.Pool.myInvestorType.mGetDefaultPool then
104
+ break;
105
+ endif;
106
+ endforeach;
107
+ endif;
108
+ endif;
109
  create allResults transient;
110
 
111
  // 10093 MuhammadN 09Oct2018 - Changed to use method instead of checking keyname for "3rd Party MBS"
C://PATCH_CONTROL//{TO → FROM}/FormCreateTxn_mDoAction.txt RENAMED
@@ -240,11 +241,14 @@ begin
240
  elseif vBucket.myComponent.mIsTaxComponent then
241
  vAccrualDetail := vBucket.myComponent.TaxComponent.myAccrualDetails;
242
  endif;
243
- vFeeInterest := myAccount.mCalculateFeeInterest(vEffectiveDate);
 
 
 
244
  if vAccrualDetail <> null
245
  // is this line needed?
246
- //and ((vBucket.aArrearsBalance <> vAccrualDetail.getAccruedFeeInterest or vBucket.aArrearsBalance <> vFeeInterest)
247
- and (vAccrualDetail.getAccruedFeeInterest <> 0 or vFeeInterest <> 0) then
248
  vRealizeFeeInterest := true;
249
  endif;
250
  endif;
241
  elseif vBucket.myComponent.mIsTaxComponent then
242
  vAccrualDetail := vBucket.myComponent.TaxComponent.myAccrualDetails;
243
  endif;
244
+ // #HTB-1603 DarrellB 23-September-22 {124692}
245
+ //vFeeInterest := myAccount.mCalculateFeeInterest(vEffectiveDate);
246
+ vFeeInterest := myCalculator.allArrearsDue[vIndex];
247
+
248
  if vAccrualDetail <> null
249
  // is this line needed?
250
+ and ((vBucket.aArrearsBalance <> vAccrualDetail.getAccruedFeeInterest or vBucket.aArrearsBalance <> vFeeInterest)
251
+ and (vAccrualDetail.getAccruedFeeInterest <> 0 or vFeeInterest <> 0)) then
252
  vRealizeFeeInterest := true;
253
  endif;
254
  endif;
C://PATCH_CONTROL//{TO → FROM}/FormCreateTxn_mValidate.txt RENAMED
@@ -52,7 +52,7 @@ begin
52
  cboBankAccount.setFocus;
53
  endif;
54
 
55
- if vErrorMsg = null and txtAmount.mGetCurrencyFromText <= 0 and not cboFunds.listObject.FundsType.mGetKeyName.isOneOf(FUNDS_JOURNAL, FUNDS_CAPITALIZATION) and
56
  not myTxnDefinition.myTxnType.aName = TXN_SKIP_PAYMENT
57
  then
58
  //vCode := 10388;
52
  cboBankAccount.setFocus;
53
  endif;
54
 
55
+ if vErrorMsg = null and txtAmount.mGetCurrencyFromText <= 0 and not cboFunds.listObject.FundsType.mGetKeyName.isOneOf(FUNDS_JOURNAL, FUNDS_CAPITALIZATION, FUNDS_TRANSFER) and
56
  not myTxnDefinition.myTxnType.aName = TXN_SKIP_PAYMENT
57
  then
58
  //vCode := 10388;
C://PATCH_CONTROL//{TO → FROM}/FormEditAccountDetails_class_info.txt RENAMED
@@ -777,6 +777,11 @@ LEN:12
777
 
778
 
779
 
 
 
 
 
 
780
  NAME:shtETP
781
  LEN:12
782
 
@@ -822,6 +827,11 @@ LEN:12
822
 
823
 
824
 
 
 
 
 
 
825
  NAME:txtRetnGrade
826
  LEN:12
827
 
777
 
778
 
779
 
780
+ NAME:lblPledgedAccount
781
+ LEN:12
782
+
783
+
784
+
785
  NAME:shtETP
786
  LEN:12
787
 
827
 
828
 
829
 
830
+ NAME:txtPledgedAccount
831
+ LEN:12
832
+
833
+
834
+
835
  NAME:txtRetnGrade
836
  LEN:12
837
 
C://PATCH_CONTROL//{TO → FROM}/FormEditAccountDetails_mLoadDetails.txt RENAMED
@@ -52,6 +52,17 @@ begin
52
  //9957
53
  txtBranchCode.text := vAccount.myUnderwritingData.aBranchCode.display;
54
 
 
 
 
 
 
 
 
 
 
 
 
55
  endif;
56
 
57
  txtLoanID.text := vAccount.aAccountID;
52
  //9957
53
  txtBranchCode.text := vAccount.myUnderwritingData.aBranchCode.display;
54
 
55
+ // #HTB-1479 NormanA 25Sep22 {124658} : update Pledged Accoun
56
+ if vAccount.myUnderwritingData.getPledgedAccount <> null then
57
+ txtPledgedAccount.text := vAccount.myUnderwritingData.getPledgedAccount.mGetKeyName;
58
+ endif;
59
+
60
+ // debug
61
+ write "Underwriting? " & vAccount.mIsUWStatus.display;
62
+ write "CRO or CEO? " & (app.myUser.mHasRole(ROLE_CRO) or app.myUser.mHasRole(ROLE_CEO)).display;
63
+ write "vIsLevel1? " & vIsLevel1.display;
64
+ write "aisETPonExecutiteApproval: " & vAccount.myUnderwritingData.aIsETPonExecutiteApproval.display;
65
+ write "button enabled? " & chkETPExecApprve.enabled.display;
66
  endif;
67
 
68
  txtLoanID.text := vAccount.aAccountID;
C://PATCH_CONTROL//{TO → FROM}/FormEditCoreTranslatableString_mValidate.txt RENAMED
@@ -34,6 +34,8 @@ begin
34
  //Verifying if keyname exists
35
  if vErrorMsg = null then
36
 
 
 
37
  vTranslateStringObj := myTranslatableStringList.allTranslatableStrings[ txtKeyName.text.trimBlanks];
38
  if vTranslateStringObj <> null then
39
  vErrorMsg := "Name already exists on " & cboSchema.text & " schema";
34
  //Verifying if keyname exists
35
  if vErrorMsg = null then
36
 
37
+ // #HTB-1592 NormanA 20Sep22 {124683} : Taking .toUpper out of pName and changing CoreTranslatableStringByKName
38
+ // dictionary Member Key from aKeyNameUpper to aKeyName
39
  vTranslateStringObj := myTranslatableStringList.allTranslatableStrings[ txtKeyName.text.trimBlanks];
40
  if vTranslateStringObj <> null then
41
  vErrorMsg := "Name already exists on " & cboSchema.text & " schema";
C://PATCH_CONTROL//{TO → FROM}/FormEditPayout_btnCreateDoc_click.txt RENAMED
@@ -48,7 +48,8 @@ begin
48
  //Ticket 10462 - AlexanderV - 2018-06-19 - updating message
49
  app.msgBox("Please go to the Documents tab to retrieve / view the document.", LMS360, MsgBox_OK_Only);
50
  //Ticket 10271 - AlexanderV - 2018-05-31 - post the fee if we should
51
- if myCalculator.myScenario.aIncludeStatementFee then
 
52
  //Ticket 10462 - AlexanderV - 2018-07-03 - pAmount added
53
  app.myFinancialTxnAgent.trxPostFeeCodeFee(myCalculator.myAccount,KN_STATEMENT_FEE, vScenario, vScenario.aStatementFee);
54
  myCalculator.mUpdateArrears;
@@ -56,7 +57,7 @@ begin
56
  vEvent := myCalculator.mSave;
57
  myCalculator.mInit2(vEvent.myDischargeScenario);
58
  mRefreshDetails;
59
- endif;
60
  //Ticket 10462 - AlexanderV - 2018-06-22
61
  modalResult := ModalResult_OK;
62
  unloadForm;
48
  //Ticket 10462 - AlexanderV - 2018-06-19 - updating message
49
  app.msgBox("Please go to the Documents tab to retrieve / view the document.", LMS360, MsgBox_OK_Only);
50
  //Ticket 10271 - AlexanderV - 2018-05-31 - post the fee if we should
51
+ // #HTB-1629 SaulL 13Oct22 {124735}: Mortgage Statement fee will always be included now. So comment out the if check
52
+ //if myCalculator.myScenario.aIncludeStatementFee then
53
  //Ticket 10462 - AlexanderV - 2018-07-03 - pAmount added
54
  app.myFinancialTxnAgent.trxPostFeeCodeFee(myCalculator.myAccount,KN_STATEMENT_FEE, vScenario, vScenario.aStatementFee);
55
  myCalculator.mUpdateArrears;
57
  vEvent := myCalculator.mSave;
58
  myCalculator.mInit2(vEvent.myDischargeScenario);
59
  mRefreshDetails;
60
+ //endif;
61
  //Ticket 10462 - AlexanderV - 2018-06-22
62
  modalResult := ModalResult_OK;
63
  unloadForm;
C://PATCH_CONTROL//{TO → FROM}/FormGlobalAuditViewer_mGetDesc.txt RENAMED
@@ -147,6 +147,11 @@ begin
147
  return pObject.XRefNumber.myXRefType.mGetKeyName;
148
  endif;
149
 
 
 
 
 
 
150
  epilog
151
 
152
  end;
147
  return pObject.XRefNumber.myXRefType.mGetKeyName;
148
  endif;
149
 
150
+ // #HTB0-1578 NormanA 20Oct22 {124716} : show client name if language is changed
151
+ if pObject.isKindOf(Contact) then
152
+ return pObject.Contact.mGetFirstName & " " & pObject.Contact.mGetLastName;
153
+ endif;
154
+
155
  epilog
156
 
157
  end;
C://PATCH_CONTROL//TO/FormLogonMessaging_class_info.txt DELETED
@@ -1,779 +0,0 @@
1
- FormLogonMessaging
2
- MAP:
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:___windowPtr
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__children
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__userObject
26
- LEN:12
27
-
28
-
29
-
30
- NAME:_hyperText
31
- LEN:-1
32
-
33
-
34
-
35
- NAME:_modifiedBy
36
- LEN:31
37
-
38
-
39
-
40
- NAME:_modifiedTimestamp
41
- LEN:8
42
-
43
-
44
-
45
- NAME:_patchVersion
46
- LEN:4
47
-
48
-
49
-
50
- NAME:_sysDHTMLScript
51
- LEN:-1
52
-
53
-
54
-
55
- NAME:_systemVersion
56
- LEN:9
57
-
58
-
59
-
60
- NAME:_webCssClass
61
- LEN:-1
62
-
63
-
64
-
65
- NAME:_webCssDefinition
66
- LEN:-1
67
-
68
-
69
-
70
- NAME:_webEventMappings
71
- LEN:-1
72
-
73
-
74
-
75
- NAME:actualClipControls
76
- LEN:1
77
-
78
-
79
-
80
- NAME:actualEnabled
81
- LEN:1
82
-
83
-
84
-
85
- NAME:actualMousePointer
86
- LEN:4
87
-
88
-
89
-
90
- NAME:actualVisible
91
- LEN:1
92
-
93
-
94
-
95
- NAME:allControlChildren
96
- LEN:12
97
-
98
-
99
-
100
- NAME:autoRedraw
101
- LEN:1
102
-
103
-
104
-
105
- NAME:backBrushStyle
106
- LEN:4
107
-
108
-
109
-
110
- NAME:backColor
111
- LEN:4
112
-
113
-
114
-
115
- NAME:borderStyle
116
- LEN:4
117
-
118
-
119
-
120
- NAME:bubbleHelp
121
- LEN:-1
122
-
123
-
124
-
125
- NAME:controlChildren
126
- LEN:12
127
-
128
-
129
-
130
- NAME:description
131
- LEN:-1
132
-
133
-
134
-
135
- NAME:disableEvents
136
- LEN:1
137
-
138
-
139
-
140
- NAME:disableReason
141
- LEN:-1
142
-
143
-
144
-
145
- NAME:dragCursor
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:dragMode
151
- LEN:4
152
-
153
-
154
-
155
- NAME:drawFillColor
156
- LEN:4
157
-
158
-
159
-
160
- NAME:drawFillStyle
161
- LEN:4
162
-
163
-
164
-
165
- NAME:drawFontBold
166
- LEN:1
167
-
168
-
169
-
170
- NAME:drawFontItalic
171
- LEN:1
172
-
173
-
174
-
175
- NAME:drawFontName
176
- LEN:-1
177
-
178
-
179
-
180
- NAME:drawFontSize
181
- LEN:8
182
-
183
-
184
-
185
- NAME:drawFontStrikethru
186
- LEN:1
187
-
188
-
189
-
190
- NAME:drawFontUnderline
191
- LEN:1
192
-
193
-
194
-
195
- NAME:drawMode
196
- LEN:4
197
-
198
-
199
-
200
- NAME:drawStyle
201
- LEN:4
202
-
203
-
204
-
205
- NAME:drawTextAlign
206
- LEN:4
207
-
208
-
209
-
210
- NAME:drawTextCharRotation
211
- LEN:8
212
-
213
-
214
-
215
- NAME:drawTextRotation
216
- LEN:8
217
-
218
-
219
-
220
- NAME:drawWidth
221
- LEN:4
222
-
223
-
224
-
225
- NAME:drawWindow
226
- LEN:4
227
-
228
-
229
-
230
- NAME:enabled
231
- LEN:1
232
-
233
-
234
-
235
- NAME:height
236
- LEN:8
237
-
238
-
239
-
240
- NAME:helpContextId
241
- LEN:4
242
-
243
-
244
-
245
- NAME:helpKeyword
246
- LEN:-1
247
-
248
-
249
-
250
- NAME:ignoreSkin
251
- LEN:1
252
-
253
-
254
-
255
- NAME:left
256
- LEN:8
257
-
258
-
259
-
260
- NAME:mouseCursor
261
- LEN:-1
262
-
263
-
264
-
265
- NAME:mousePointer
266
- LEN:4
267
-
268
-
269
-
270
- NAME:name
271
- LEN:101
272
-
273
-
274
-
275
- NAME:scaleHeight
276
- LEN:8
277
-
278
-
279
-
280
- NAME:scaleLeft
281
- LEN:8
282
-
283
-
284
-
285
- NAME:scaleMode
286
- LEN:4
287
-
288
-
289
-
290
- NAME:scaleTop
291
- LEN:8
292
-
293
-
294
-
295
- NAME:scaleWidth
296
- LEN:8
297
-
298
-
299
-
300
- NAME:securityLevelEnabled
301
- LEN:4
302
-
303
-
304
-
305
- NAME:securityLevelVisible
306
- LEN:4
307
-
308
-
309
-
310
- NAME:skinCategoryName
311
- LEN:101
312
-
313
-
314
-
315
- NAME:tag
316
- LEN:-1
317
-
318
-
319
-
320
- NAME:top
321
- LEN:8
322
-
323
-
324
-
325
- NAME:userObject
326
- LEN:12
327
-
328
-
329
-
330
- NAME:userScript
331
- LEN:-1
332
-
333
-
334
-
335
- NAME:visible
336
- LEN:1
337
-
338
-
339
-
340
- NAME:width
341
- LEN:8
342
-
343
-
344
-
345
- NAME:_createdControls
346
- LEN:12
347
-
348
-
349
-
350
- NAME:_eventMappings
351
- LEN:-1
352
-
353
-
354
-
355
- NAME:_formBuildData
356
- LEN:-1
357
-
358
-
359
-
360
- NAME:_painterModifiedTimeStamp
361
- LEN:8
362
-
363
-
364
-
365
- NAME:_saveControlData
366
- LEN:12
367
-
368
-
369
-
370
- NAME:_webEnableHttpRequest
371
- LEN:1
372
-
373
-
374
-
375
- NAME:_webRegenPage
376
- LEN:1
377
-
378
-
379
-
380
- NAME:actualWindowState
381
- LEN:4
382
-
383
-
384
-
385
- NAME:allMenuItems
386
- LEN:12
387
-
388
-
389
-
390
- NAME:allowClose
391
- LEN:1
392
-
393
-
394
-
395
- NAME:allowDocking
396
- LEN:4
397
-
398
-
399
-
400
- NAME:applications
401
- LEN:12
402
-
403
-
404
-
405
- NAME:backBrush
406
- LEN:-1
407
-
408
-
409
-
410
- NAME:caption
411
- LEN:256
412
-
413
-
414
-
415
- NAME:clientHeight
416
- LEN:4
417
-
418
-
419
-
420
- NAME:clientWidth
421
- LEN:4
422
-
423
-
424
-
425
- NAME:clipControls
426
- LEN:1
427
-
428
-
429
-
430
- NAME:controlBox
431
- LEN:1
432
-
433
-
434
-
435
- NAME:controlList
436
- LEN:12
437
-
438
-
439
-
440
- NAME:formBuildDataTStrings
441
- LEN:12
442
-
443
-
444
-
445
- NAME:icon
446
- LEN:-1
447
-
448
-
449
-
450
- NAME:locale
451
- LEN:12
452
-
453
-
454
-
455
- NAME:maxButton
456
- LEN:1
457
-
458
-
459
-
460
- NAME:mdiChild
461
- LEN:4
462
-
463
-
464
-
465
- NAME:mdiClientScrollHorzPos
466
- LEN:4
467
-
468
-
469
-
470
- NAME:mdiClientScrollVertPos
471
- LEN:4
472
-
473
-
474
-
475
- NAME:mdiFrame
476
- LEN:1
477
-
478
-
479
-
480
- NAME:menuList
481
- LEN:12
482
-
483
-
484
-
485
- NAME:minButton
486
- LEN:1
487
-
488
-
489
-
490
- NAME:minimumHeight
491
- LEN:4
492
-
493
-
494
-
495
- NAME:minimumWidth
496
- LEN:4
497
-
498
-
499
-
500
- NAME:modalResult
501
- LEN:4
502
-
503
-
504
-
505
- NAME:paintedDialogBaseUnits
506
- LEN:4
507
-
508
-
509
-
510
- NAME:printerForm
511
- LEN:1
512
-
513
-
514
-
515
- NAME:scaleForm
516
- LEN:1
517
-
518
-
519
-
520
- NAME:scrollBars
521
- LEN:4
522
-
523
-
524
-
525
- NAME:scrollHorzPos
526
- LEN:4
527
-
528
-
529
-
530
- NAME:scrollVertPos
531
- LEN:4
532
-
533
-
534
-
535
- NAME:secureForm
536
- LEN:1
537
-
538
-
539
-
540
- NAME:topLevelMenuItems
541
- LEN:12
542
-
543
-
544
-
545
- NAME:userProfile
546
- LEN:12
547
-
548
-
549
-
550
- NAME:webBrowserAutoRefreshInterval
551
- LEN:4
552
-
553
-
554
-
555
- NAME:webBrowserAutoRefreshURL
556
- LEN:-1
557
-
558
-
559
-
560
- NAME:webBrowserDisableBackButton
561
- LEN:1
562
-
563
-
564
-
565
- NAME:webEncodingType
566
- LEN:1
567
-
568
-
569
-
570
- NAME:webFileName
571
- LEN:-1
572
-
573
-
574
-
575
- NAME:webForm
576
- LEN:1
577
-
578
-
579
-
580
- NAME:windowState
581
- LEN:4
582
-
583
-
584
-
585
- NAME:aAccessLevel
586
- LEN:4
587
-
588
-
589
-
590
- NAME:aAccessLevelOverride
591
- LEN:4
592
-
593
-
594
-
595
- NAME:aDirty
596
- LEN:1
597
-
598
-
599
-
600
- NAME:aLoadData
601
- LEN:1
602
-
603
-
604
-
605
- NAME:aLocaleName
606
- LEN:-1
607
-
608
-
609
-
610
- NAME:aSessionID
611
- LEN:31
612
-
613
-
614
-
615
- NAME:aUnloaded
616
- LEN:1
617
-
618
-
619
-
620
- NAME:allLocales
621
- LEN:12
622
-
623
-
624
-
625
- NAME:allPropertyControlLinks
626
- LEN:12
627
-
628
-
629
-
630
- NAME:allTransientsToDeleteOnUnload
631
- LEN:12
632
-
633
-
634
-
635
- NAME:myCurrentLocale
636
- LEN:12
637
-
638
-
639
-
640
- NAME:picTableFilter
641
- LEN:12
642
-
643
-
644
-
645
- NAME:aBufferEdition
646
- LEN:4
647
-
648
-
649
-
650
- NAME:aLastKeyPressed
651
- LEN:4
652
-
653
-
654
-
655
- NAME:aOverrideControl
656
- LEN:12
657
-
658
-
659
-
660
- NAME:aOverridePriorValue
661
- LEN:-1
662
-
663
-
664
-
665
- NAME:allCurrentOverrides
666
- LEN:12
667
-
668
-
669
-
670
- NAME:allFormErrors
671
- LEN:12
672
-
673
-
674
-
675
- NAME:myAppFormHelper
676
- LEN:12
677
-
678
-
679
-
680
- NAME:myBufferObject
681
- LEN:12
682
-
683
-
684
-
685
- NAME:aDevByPass
686
- LEN:1
687
-
688
-
689
-
690
- NAME:btnCancel
691
- LEN:12
692
-
693
-
694
-
695
- NAME:btnLanguage
696
- LEN:12
697
-
698
-
699
-
700
- NAME:btnOK
701
- LEN:12
702
-
703
-
704
-
705
- NAME:fraFrame1
706
- LEN:12
707
-
708
-
709
-
710
- NAME:fraFrame1_1
711
- LEN:12
712
-
713
-
714
-
715
- NAME:fraFrame3
716
- LEN:12
717
-
718
-
719
-
720
- NAME:fraFrame4
721
- LEN:12
722
-
723
-
724
-
725
- NAME:lblRelease
726
- LEN:12
727
-
728
-
729
-
730
- NAME:lblReleaseDate
731
- LEN:12
732
-
733
-
734
-
735
- NAME:lblTitle
736
- LEN:12
737
-
738
-
739
-
740
- NAME:lblUserName
741
- LEN:12
742
-
743
-
744
-
745
- NAME:lblUserName_1
746
- LEN:12
747
-
748
-
749
-
750
- NAME:lblVersion
751
- LEN:12
752
-
753
-
754
-
755
- NAME:picSystemLogo
756
- LEN:12
757
-
758
-
759
-
760
- NAME:picVertLine
761
- LEN:12
762
-
763
-
764
-
765
- NAME:picWebAddr
766
- LEN:12
767
-
768
-
769
-
770
- NAME:txtPassword
771
- LEN:12
772
-
773
-
774
-
775
- NAME:txtUserID
776
- LEN:12
777
-
778
-
779
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//{TO → FROM}/FormMDIFeeSetup_class_info.txt RENAMED
@@ -887,6 +887,16 @@ LEN:12
887
 
888
 
889
 
 
 
 
 
 
 
 
 
 
 
890
  NAME:chkRestrictRole
891
  LEN:12
892
 
887
 
888
 
889
 
890
+ NAME:chkNotIncludedAdvStm
891
+ LEN:12
892
+
893
+ Date Created: 03Nov22
894
+ Created By: SaulL
895
+ Property Name: chkNotIncludedAdvStm
896
+ Patch Number: 124813
897
+ Ticket: HTB-1433
898
+ Purpose: Add a new flag to indicate whether the fee code should be included in the Advance Statement
899
+
900
  NAME:chkRestrictRole
901
  LEN:12
902
 
C://PATCH_CONTROL//{TO → FROM}/FormMDIFeeSetup_mDoAction.txt RENAMED
@@ -123,7 +123,10 @@ begin
123
  cboMultiplyTerm.listObject.Terminology,
124
  // #CTC-419 ChristopherD 04Dec20 {123305} : Adding a new property.
125
  chkFullyAmortizeOnSaleToInvestor.value,
126
- vFeeCodeInvestorTypeLinks);
 
 
 
127
 
128
 
129
  return true;
123
  cboMultiplyTerm.listObject.Terminology,
124
  // #CTC-419 ChristopherD 04Dec20 {123305} : Adding a new property.
125
  chkFullyAmortizeOnSaleToInvestor.value,
126
+ vFeeCodeInvestorTypeLinks,
127
+ //#HTB-1433 SaulL 04Nov22 {124813}: Adding a new property, aNotIncludedInAdvStm
128
+ chkNotIncludedAdvStm.value
129
+ );
130
 
131
 
132
  return true;
C://PATCH_CONTROL//{TO → FROM}/FormMDIFeeSetup_mListRowColChange.txt RENAMED
@@ -54,6 +54,8 @@ begin
54
  cboDepositTxn.listObject := vFeeCode.myDepositTxn;
55
 
56
  chkAllowInAdvanc.value := vFeeCode.aAllowInAdvance; chkAllowInAdvanc.click(chkAllowInAdvanc);
 
 
57
  chkAutoPopulatre.value := vFeeCode.aAutoAddFeeOnFund;
58
 
59
  chkIncludeAPR.value := vFeeCode.aInlcudeInAPR;
54
  cboDepositTxn.listObject := vFeeCode.myDepositTxn;
55
 
56
  chkAllowInAdvanc.value := vFeeCode.aAllowInAdvance; chkAllowInAdvanc.click(chkAllowInAdvanc);
57
+ // #HTB-1433 SaulL 04Nov22 {124813}: Added chkNotIncludedAdvStm
58
+ chkNotIncludedAdvStm.value := vFeeCode.mGetANotIncludedInAdvStm;
59
  chkAutoPopulatre.value := vFeeCode.aAutoAddFeeOnFund;
60
 
61
  chkIncludeAPR.value := vFeeCode.aInlcudeInAPR;
C://PATCH_CONTROL//FROM/FormMDIInvestorType_cboPlanningPools_displayRow.txt ADDED
@@ -0,0 +1,21 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ cboPlanningPools_displayRow(combobox: ComboBox input; obj: Object; lstIndex: Integer; bcontinue: Boolean io):String updating;
2
+ /*************************************************************************************************
3
+ Date Created: 31 October 2022
4
+ Created By: NormanA
5
+ Method Name: cboPlanningPools_displayRow
6
+ Patch Number: 124658
7
+ Ticket: HTB-1479
8
+ Purpose:
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ----------- --------------------------------------------------------------
12
+ ddMMMyy
13
+ *************************************************************************************************/
14
+ vars
15
+
16
+ begin
17
+ if not obj.SelectionPlan.mIsActive then
18
+ return null;
19
+ endif;
20
+ return obj.SelectionPlan.aName;
21
+ end;
C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_class_info.txt RENAMED
@@ -852,6 +852,11 @@ LEN:12
852
 
853
 
854
 
 
 
 
 
 
855
  NAME:chkCMHCType
856
  LEN:12
857
 
@@ -935,6 +940,11 @@ LEN:12
935
 
936
 
937
 
 
 
 
 
 
938
  NAME:lblRemitSalesTxn
939
  LEN:12
940
 
852
 
853
 
854
 
855
+ NAME:cboPlanningPools
856
+ LEN:12
857
+
858
+
859
+
860
  NAME:chkCMHCType
861
  LEN:12
862
 
940
 
941
 
942
 
943
+ NAME:lblPlanningPool
944
+ LEN:12
945
+
946
+
947
+
948
  NAME:lblRemitSalesTxn
949
  LEN:12
950
 
C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_initialize.txt RENAMED
@@ -52,6 +52,10 @@ begin
52
  chkIngorePoolCriteriaAutosale.top := chkIngorePoolCriteriaAutosale.top + 18;
53
  btnPoolEdit.top := btnPoolEdit.top + 60;
54
 
 
 
 
 
55
  //Ticket 10102 - AlexanderV - 2018-05-16
56
  btnPoolEdit.xcoreEnable(false);
57
  epilog
52
  chkIngorePoolCriteriaAutosale.top := chkIngorePoolCriteriaAutosale.top + 18;
53
  btnPoolEdit.top := btnPoolEdit.top + 60;
54
 
55
+ // #HTB-1479 NormanA 03Nov22 {124658} display planning pools combo box
56
+ cboPlanningPools.displayCollection(app.mySelectionRoot.allSecuritizationPlans, true, 0, null, 'Pool Criteria Only');
57
+ cboPlanningPools.listIndex := 1;
58
+
59
  //Ticket 10102 - AlexanderV - 2018-05-16
60
  btnPoolEdit.xcoreEnable(false);
61
  epilog
C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_mDoAction.txt RENAMED
@@ -24,6 +24,7 @@ vars
24
  vInvestorTypeBucketDefinitionLink : InvestorTypeBucketDefinitionLink;
25
  vInvestorTypeBucketDefinitionLinks : InvestorTypeBucketDefinitionLinkByBDDict;
26
  vRow : Integer;
 
27
 
28
  begin
29
  if not mValidate then
@@ -66,6 +67,7 @@ begin
66
  // #CTC-335 ThabanS 21May20 {122934} : added pPostToCurrentInvestor
67
  // #11304 ThabanS 04Nov19 {122579} : added chkIngorePoolCriteriaAutosale
68
  // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
 
69
  app.myGeneralTxnAgent.trxUpdateInvestorType(vInvestorType,
70
  aBufferEdition,
71
  tblLocales.mGetDefaultLocaleShortName,
@@ -83,7 +85,8 @@ begin
83
  cboLOB.listObject.Terminology,
84
  chkPostToCurrent.value,
85
  chkIngorePoolCriteriaAutosale.value,
86
- chkUseInvestorBankFund.value);
 
87
 
88
  mDisplayError(vErrorCode);
89
 
24
  vInvestorTypeBucketDefinitionLink : InvestorTypeBucketDefinitionLink;
25
  vInvestorTypeBucketDefinitionLinks : InvestorTypeBucketDefinitionLinkByBDDict;
26
  vRow : Integer;
27
+ vPlanningPool : String;
28
 
29
  begin
30
  if not mValidate then
67
  // #CTC-335 ThabanS 21May20 {122934} : added pPostToCurrentInvestor
68
  // #11304 ThabanS 04Nov19 {122579} : added chkIngorePoolCriteriaAutosale
69
  // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
70
+ // #HTB-1479 NormanA 31Oct22 {124658} : add planning pool text to update investor type
71
  app.myGeneralTxnAgent.trxUpdateInvestorType(vInvestorType,
72
  aBufferEdition,
73
  tblLocales.mGetDefaultLocaleShortName,
85
  cboLOB.listObject.Terminology,
86
  chkPostToCurrent.value,
87
  chkIngorePoolCriteriaAutosale.value,
88
+ chkUseInvestorBankFund.value,
89
+ cboPlanningPools.text);
90
 
91
  mDisplayError(vErrorCode);
92
 
C://PATCH_CONTROL//{TO → FROM}/FormMDIInvestorType_mLoadDetails.txt RENAMED
@@ -18,6 +18,8 @@ vars
18
  vTxn : TxnDefinitionServicing;
19
  vBucketDef : TxnBucketDefinition;
20
  vLender : Lender;
 
 
21
  begin
22
  inheritMethod();
23
 
@@ -92,6 +94,20 @@ begin
92
  // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
93
  chkUseInvestorBankFund.value := vInvestorType.aUseInvestorBankAccountOnSale;
94
  //chkUseInvestorBankFund.enabled := vInvestorType.mIsSecuritized;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
95
  epilog
96
 
97
  end;
18
  vTxn : TxnDefinitionServicing;
19
  vBucketDef : TxnBucketDefinition;
20
  vLender : Lender;
21
+ vListIndex : Integer;
22
+ vChanged : Boolean;
23
  begin
24
  inheritMethod();
25
 
94
  // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
95
  chkUseInvestorBankFund.value := vInvestorType.aUseInvestorBankAccountOnSale;
96
  //chkUseInvestorBankFund.enabled := vInvestorType.mIsSecuritized;
97
+
98
+ // #HTB-1479 NormanA 02Nov22 {124658} : set combo box to investor type's pooling plan
99
+ vChanged := false;
100
+ foreach vListIndex in 1 to cboPlanningPools.getCollection.size + 1 do
101
+ cboPlanningPools.listIndex := vListIndex;
102
+ if vInvestorType.mGetDefaultPool <> null and cboPlanningPools.text = vInvestorType.mGetDefaultPool then
103
+ cboPlanningPools.listIndex := vListIndex;
104
+ vChanged := true;
105
+ break;
106
+ endif;
107
+ endforeach;
108
+ if not vChanged then
109
+ cboPlanningPools.listIndex := 1;
110
+ endif;
111
  epilog
112
 
113
  end;
C://PATCH_CONTROL//TO/FormMesagingMgrMDIChild_class_info.txt DELETED
@@ -1,584 +0,0 @@
1
- FormMesagingMgrMDIChild
2
- MAP:
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:___windowPtr
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__children
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__userObject
26
- LEN:12
27
-
28
-
29
-
30
- NAME:_hyperText
31
- LEN:-1
32
-
33
-
34
-
35
- NAME:_modifiedBy
36
- LEN:31
37
-
38
-
39
-
40
- NAME:_modifiedTimestamp
41
- LEN:8
42
-
43
-
44
-
45
- NAME:_patchVersion
46
- LEN:4
47
-
48
-
49
-
50
- NAME:_sysDHTMLScript
51
- LEN:-1
52
-
53
-
54
-
55
- NAME:_systemVersion
56
- LEN:9
57
-
58
-
59
-
60
- NAME:_webCssClass
61
- LEN:-1
62
-
63
-
64
-
65
- NAME:_webCssDefinition
66
- LEN:-1
67
-
68
-
69
-
70
- NAME:_webEventMappings
71
- LEN:-1
72
-
73
-
74
-
75
- NAME:actualClipControls
76
- LEN:1
77
-
78
-
79
-
80
- NAME:actualEnabled
81
- LEN:1
82
-
83
-
84
-
85
- NAME:actualMousePointer
86
- LEN:4
87
-
88
-
89
-
90
- NAME:actualVisible
91
- LEN:1
92
-
93
-
94
-
95
- NAME:allControlChildren
96
- LEN:12
97
-
98
-
99
-
100
- NAME:autoRedraw
101
- LEN:1
102
-
103
-
104
-
105
- NAME:backBrushStyle
106
- LEN:4
107
-
108
-
109
-
110
- NAME:backColor
111
- LEN:4
112
-
113
-
114
-
115
- NAME:borderStyle
116
- LEN:4
117
-
118
-
119
-
120
- NAME:bubbleHelp
121
- LEN:-1
122
-
123
-
124
-
125
- NAME:controlChildren
126
- LEN:12
127
-
128
-
129
-
130
- NAME:description
131
- LEN:-1
132
-
133
-
134
-
135
- NAME:disableEvents
136
- LEN:1
137
-
138
-
139
-
140
- NAME:disableReason
141
- LEN:-1
142
-
143
-
144
-
145
- NAME:dragCursor
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:dragMode
151
- LEN:4
152
-
153
-
154
-
155
- NAME:drawFillColor
156
- LEN:4
157
-
158
-
159
-
160
- NAME:drawFillStyle
161
- LEN:4
162
-
163
-
164
-
165
- NAME:drawFontBold
166
- LEN:1
167
-
168
-
169
-
170
- NAME:drawFontItalic
171
- LEN:1
172
-
173
-
174
-
175
- NAME:drawFontName
176
- LEN:-1
177
-
178
-
179
-
180
- NAME:drawFontSize
181
- LEN:8
182
-
183
-
184
-
185
- NAME:drawFontStrikethru
186
- LEN:1
187
-
188
-
189
-
190
- NAME:drawFontUnderline
191
- LEN:1
192
-
193
-
194
-
195
- NAME:drawMode
196
- LEN:4
197
-
198
-
199
-
200
- NAME:drawStyle
201
- LEN:4
202
-
203
-
204
-
205
- NAME:drawTextAlign
206
- LEN:4
207
-
208
-
209
-
210
- NAME:drawTextCharRotation
211
- LEN:8
212
-
213
-
214
-
215
- NAME:drawTextRotation
216
- LEN:8
217
-
218
-
219
-
220
- NAME:drawWidth
221
- LEN:4
222
-
223
-
224
-
225
- NAME:drawWindow
226
- LEN:4
227
-
228
-
229
-
230
- NAME:enabled
231
- LEN:1
232
-
233
-
234
-
235
- NAME:height
236
- LEN:8
237
-
238
-
239
-
240
- NAME:helpContextId
241
- LEN:4
242
-
243
-
244
-
245
- NAME:helpKeyword
246
- LEN:-1
247
-
248
-
249
-
250
- NAME:ignoreSkin
251
- LEN:1
252
-
253
-
254
-
255
- NAME:left
256
- LEN:8
257
-
258
-
259
-
260
- NAME:mouseCursor
261
- LEN:-1
262
-
263
-
264
-
265
- NAME:mousePointer
266
- LEN:4
267
-
268
-
269
-
270
- NAME:name
271
- LEN:101
272
-
273
-
274
-
275
- NAME:scaleHeight
276
- LEN:8
277
-
278
-
279
-
280
- NAME:scaleLeft
281
- LEN:8
282
-
283
-
284
-
285
- NAME:scaleMode
286
- LEN:4
287
-
288
-
289
-
290
- NAME:scaleTop
291
- LEN:8
292
-
293
-
294
-
295
- NAME:scaleWidth
296
- LEN:8
297
-
298
-
299
-
300
- NAME:securityLevelEnabled
301
- LEN:4
302
-
303
-
304
-
305
- NAME:securityLevelVisible
306
- LEN:4
307
-
308
-
309
-
310
- NAME:skinCategoryName
311
- LEN:101
312
-
313
-
314
-
315
- NAME:tag
316
- LEN:-1
317
-
318
-
319
-
320
- NAME:top
321
- LEN:8
322
-
323
-
324
-
325
- NAME:userObject
326
- LEN:12
327
-
328
-
329
-
330
- NAME:userScript
331
- LEN:-1
332
-
333
-
334
-
335
- NAME:visible
336
- LEN:1
337
-
338
-
339
-
340
- NAME:width
341
- LEN:8
342
-
343
-
344
-
345
- NAME:_createdControls
346
- LEN:12
347
-
348
-
349
-
350
- NAME:_eventMappings
351
- LEN:-1
352
-
353
-
354
-
355
- NAME:_formBuildData
356
- LEN:-1
357
-
358
-
359
-
360
- NAME:_painterModifiedTimeStamp
361
- LEN:8
362
-
363
-
364
-
365
- NAME:_saveControlData
366
- LEN:12
367
-
368
-
369
-
370
- NAME:_webEnableHttpRequest
371
- LEN:1
372
-
373
-
374
-
375
- NAME:_webRegenPage
376
- LEN:1
377
-
378
-
379
-
380
- NAME:actualWindowState
381
- LEN:4
382
-
383
-
384
-
385
- NAME:allMenuItems
386
- LEN:12
387
-
388
-
389
-
390
- NAME:allowClose
391
- LEN:1
392
-
393
-
394
-
395
- NAME:allowDocking
396
- LEN:4
397
-
398
-
399
-
400
- NAME:applications
401
- LEN:12
402
-
403
-
404
-
405
- NAME:backBrush
406
- LEN:-1
407
-
408
-
409
-
410
- NAME:caption
411
- LEN:256
412
-
413
-
414
-
415
- NAME:clientHeight
416
- LEN:4
417
-
418
-
419
-
420
- NAME:clientWidth
421
- LEN:4
422
-
423
-
424
-
425
- NAME:clipControls
426
- LEN:1
427
-
428
-
429
-
430
- NAME:controlBox
431
- LEN:1
432
-
433
-
434
-
435
- NAME:controlList
436
- LEN:12
437
-
438
-
439
-
440
- NAME:formBuildDataTStrings
441
- LEN:12
442
-
443
-
444
-
445
- NAME:icon
446
- LEN:-1
447
-
448
-
449
-
450
- NAME:locale
451
- LEN:12
452
-
453
-
454
-
455
- NAME:maxButton
456
- LEN:1
457
-
458
-
459
-
460
- NAME:mdiChild
461
- LEN:4
462
-
463
-
464
-
465
- NAME:mdiClientScrollHorzPos
466
- LEN:4
467
-
468
-
469
-
470
- NAME:mdiClientScrollVertPos
471
- LEN:4
472
-
473
-
474
-
475
- NAME:mdiFrame
476
- LEN:1
477
-
478
-
479
-
480
- NAME:menuList
481
- LEN:12
482
-
483
-
484
-
485
- NAME:minButton
486
- LEN:1
487
-
488
-
489
-
490
- NAME:minimumHeight
491
- LEN:4
492
-
493
-
494
-
495
- NAME:minimumWidth
496
- LEN:4
497
-
498
-
499
-
500
- NAME:modalResult
501
- LEN:4
502
-
503
-
504
-
505
- NAME:paintedDialogBaseUnits
506
- LEN:4
507
-
508
-
509
-
510
- NAME:printerForm
511
- LEN:1
512
-
513
-
514
-
515
- NAME:scaleForm
516
- LEN:1
517
-
518
-
519
-
520
- NAME:scrollBars
521
- LEN:4
522
-
523
-
524
-
525
- NAME:scrollHorzPos
526
- LEN:4
527
-
528
-
529
-
530
- NAME:scrollVertPos
531
- LEN:4
532
-
533
-
534
-
535
- NAME:secureForm
536
- LEN:1
537
-
538
-
539
-
540
- NAME:topLevelMenuItems
541
- LEN:12
542
-
543
-
544
-
545
- NAME:userProfile
546
- LEN:12
547
-
548
-
549
-
550
- NAME:webBrowserAutoRefreshInterval
551
- LEN:4
552
-
553
-
554
-
555
- NAME:webBrowserAutoRefreshURL
556
- LEN:-1
557
-
558
-
559
-
560
- NAME:webBrowserDisableBackButton
561
- LEN:1
562
-
563
-
564
-
565
- NAME:webEncodingType
566
- LEN:1
567
-
568
-
569
-
570
- NAME:webFileName
571
- LEN:-1
572
-
573
-
574
-
575
- NAME:webForm
576
- LEN:1
577
-
578
-
579
-
580
- NAME:windowState
581
- LEN:4
582
-
583
-
584
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessageDetails_btnOK_click.txt DELETED
@@ -1,19 +0,0 @@
1
- btnOK_click(jadeMask: JadeMask input) updating;
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- unloadForm;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessageDetails_class_info.txt DELETED
@@ -1,614 +0,0 @@
1
- FormMessageDetails
2
- MAP:
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:___windowPtr
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__children
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__userObject
26
- LEN:12
27
-
28
-
29
-
30
- NAME:_hyperText
31
- LEN:-1
32
-
33
-
34
-
35
- NAME:_modifiedBy
36
- LEN:31
37
-
38
-
39
-
40
- NAME:_modifiedTimestamp
41
- LEN:8
42
-
43
-
44
-
45
- NAME:_patchVersion
46
- LEN:4
47
-
48
-
49
-
50
- NAME:_sysDHTMLScript
51
- LEN:-1
52
-
53
-
54
-
55
- NAME:_systemVersion
56
- LEN:9
57
-
58
-
59
-
60
- NAME:_webCssClass
61
- LEN:-1
62
-
63
-
64
-
65
- NAME:_webCssDefinition
66
- LEN:-1
67
-
68
-
69
-
70
- NAME:_webEventMappings
71
- LEN:-1
72
-
73
-
74
-
75
- NAME:actualClipControls
76
- LEN:1
77
-
78
-
79
-
80
- NAME:actualEnabled
81
- LEN:1
82
-
83
-
84
-
85
- NAME:actualMousePointer
86
- LEN:4
87
-
88
-
89
-
90
- NAME:actualVisible
91
- LEN:1
92
-
93
-
94
-
95
- NAME:allControlChildren
96
- LEN:12
97
-
98
-
99
-
100
- NAME:autoRedraw
101
- LEN:1
102
-
103
-
104
-
105
- NAME:backBrushStyle
106
- LEN:4
107
-
108
-
109
-
110
- NAME:backColor
111
- LEN:4
112
-
113
-
114
-
115
- NAME:borderStyle
116
- LEN:4
117
-
118
-
119
-
120
- NAME:bubbleHelp
121
- LEN:-1
122
-
123
-
124
-
125
- NAME:controlChildren
126
- LEN:12
127
-
128
-
129
-
130
- NAME:description
131
- LEN:-1
132
-
133
-
134
-
135
- NAME:disableEvents
136
- LEN:1
137
-
138
-
139
-
140
- NAME:disableReason
141
- LEN:-1
142
-
143
-
144
-
145
- NAME:dragCursor
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:dragMode
151
- LEN:4
152
-
153
-
154
-
155
- NAME:drawFillColor
156
- LEN:4
157
-
158
-
159
-
160
- NAME:drawFillStyle
161
- LEN:4
162
-
163
-
164
-
165
- NAME:drawFontBold
166
- LEN:1
167
-
168
-
169
-
170
- NAME:drawFontItalic
171
- LEN:1
172
-
173
-
174
-
175
- NAME:drawFontName
176
- LEN:-1
177
-
178
-
179
-
180
- NAME:drawFontSize
181
- LEN:8
182
-
183
-
184
-
185
- NAME:drawFontStrikethru
186
- LEN:1
187
-
188
-
189
-
190
- NAME:drawFontUnderline
191
- LEN:1
192
-
193
-
194
-
195
- NAME:drawMode
196
- LEN:4
197
-
198
-
199
-
200
- NAME:drawStyle
201
- LEN:4
202
-
203
-
204
-
205
- NAME:drawTextAlign
206
- LEN:4
207
-
208
-
209
-
210
- NAME:drawTextCharRotation
211
- LEN:8
212
-
213
-
214
-
215
- NAME:drawTextRotation
216
- LEN:8
217
-
218
-
219
-
220
- NAME:drawWidth
221
- LEN:4
222
-
223
-
224
-
225
- NAME:drawWindow
226
- LEN:4
227
-
228
-
229
-
230
- NAME:enabled
231
- LEN:1
232
-
233
-
234
-
235
- NAME:height
236
- LEN:8
237
-
238
-
239
-
240
- NAME:helpContextId
241
- LEN:4
242
-
243
-
244
-
245
- NAME:helpKeyword
246
- LEN:-1
247
-
248
-
249
-
250
- NAME:ignoreSkin
251
- LEN:1
252
-
253
-
254
-
255
- NAME:left
256
- LEN:8
257
-
258
-
259
-
260
- NAME:mouseCursor
261
- LEN:-1
262
-
263
-
264
-
265
- NAME:mousePointer
266
- LEN:4
267
-
268
-
269
-
270
- NAME:name
271
- LEN:101
272
-
273
-
274
-
275
- NAME:scaleHeight
276
- LEN:8
277
-
278
-
279
-
280
- NAME:scaleLeft
281
- LEN:8
282
-
283
-
284
-
285
- NAME:scaleMode
286
- LEN:4
287
-
288
-
289
-
290
- NAME:scaleTop
291
- LEN:8
292
-
293
-
294
-
295
- NAME:scaleWidth
296
- LEN:8
297
-
298
-
299
-
300
- NAME:securityLevelEnabled
301
- LEN:4
302
-
303
-
304
-
305
- NAME:securityLevelVisible
306
- LEN:4
307
-
308
-
309
-
310
- NAME:skinCategoryName
311
- LEN:101
312
-
313
-
314
-
315
- NAME:tag
316
- LEN:-1
317
-
318
-
319
-
320
- NAME:top
321
- LEN:8
322
-
323
-
324
-
325
- NAME:userObject
326
- LEN:12
327
-
328
-
329
-
330
- NAME:userScript
331
- LEN:-1
332
-
333
-
334
-
335
- NAME:visible
336
- LEN:1
337
-
338
-
339
-
340
- NAME:width
341
- LEN:8
342
-
343
-
344
-
345
- NAME:_createdControls
346
- LEN:12
347
-
348
-
349
-
350
- NAME:_eventMappings
351
- LEN:-1
352
-
353
-
354
-
355
- NAME:_formBuildData
356
- LEN:-1
357
-
358
-
359
-
360
- NAME:_painterModifiedTimeStamp
361
- LEN:8
362
-
363
-
364
-
365
- NAME:_saveControlData
366
- LEN:12
367
-
368
-
369
-
370
- NAME:_webEnableHttpRequest
371
- LEN:1
372
-
373
-
374
-
375
- NAME:_webRegenPage
376
- LEN:1
377
-
378
-
379
-
380
- NAME:actualWindowState
381
- LEN:4
382
-
383
-
384
-
385
- NAME:allMenuItems
386
- LEN:12
387
-
388
-
389
-
390
- NAME:allowClose
391
- LEN:1
392
-
393
-
394
-
395
- NAME:allowDocking
396
- LEN:4
397
-
398
-
399
-
400
- NAME:applications
401
- LEN:12
402
-
403
-
404
-
405
- NAME:backBrush
406
- LEN:-1
407
-
408
-
409
-
410
- NAME:caption
411
- LEN:256
412
-
413
-
414
-
415
- NAME:clientHeight
416
- LEN:4
417
-
418
-
419
-
420
- NAME:clientWidth
421
- LEN:4
422
-
423
-
424
-
425
- NAME:clipControls
426
- LEN:1
427
-
428
-
429
-
430
- NAME:controlBox
431
- LEN:1
432
-
433
-
434
-
435
- NAME:controlList
436
- LEN:12
437
-
438
-
439
-
440
- NAME:formBuildDataTStrings
441
- LEN:12
442
-
443
-
444
-
445
- NAME:icon
446
- LEN:-1
447
-
448
-
449
-
450
- NAME:locale
451
- LEN:12
452
-
453
-
454
-
455
- NAME:maxButton
456
- LEN:1
457
-
458
-
459
-
460
- NAME:mdiChild
461
- LEN:4
462
-
463
-
464
-
465
- NAME:mdiClientScrollHorzPos
466
- LEN:4
467
-
468
-
469
-
470
- NAME:mdiClientScrollVertPos
471
- LEN:4
472
-
473
-
474
-
475
- NAME:mdiFrame
476
- LEN:1
477
-
478
-
479
-
480
- NAME:menuList
481
- LEN:12
482
-
483
-
484
-
485
- NAME:minButton
486
- LEN:1
487
-
488
-
489
-
490
- NAME:minimumHeight
491
- LEN:4
492
-
493
-
494
-
495
- NAME:minimumWidth
496
- LEN:4
497
-
498
-
499
-
500
- NAME:modalResult
501
- LEN:4
502
-
503
-
504
-
505
- NAME:paintedDialogBaseUnits
506
- LEN:4
507
-
508
-
509
-
510
- NAME:printerForm
511
- LEN:1
512
-
513
-
514
-
515
- NAME:scaleForm
516
- LEN:1
517
-
518
-
519
-
520
- NAME:scrollBars
521
- LEN:4
522
-
523
-
524
-
525
- NAME:scrollHorzPos
526
- LEN:4
527
-
528
-
529
-
530
- NAME:scrollVertPos
531
- LEN:4
532
-
533
-
534
-
535
- NAME:secureForm
536
- LEN:1
537
-
538
-
539
-
540
- NAME:topLevelMenuItems
541
- LEN:12
542
-
543
-
544
-
545
- NAME:userProfile
546
- LEN:12
547
-
548
-
549
-
550
- NAME:webBrowserAutoRefreshInterval
551
- LEN:4
552
-
553
-
554
-
555
- NAME:webBrowserAutoRefreshURL
556
- LEN:-1
557
-
558
-
559
-
560
- NAME:webBrowserDisableBackButton
561
- LEN:1
562
-
563
-
564
-
565
- NAME:webEncodingType
566
- LEN:1
567
-
568
-
569
-
570
- NAME:webFileName
571
- LEN:-1
572
-
573
-
574
-
575
- NAME:webForm
576
- LEN:1
577
-
578
-
579
-
580
- NAME:windowState
581
- LEN:4
582
-
583
-
584
-
585
- NAME:btnOK
586
- LEN:12
587
-
588
-
589
-
590
- NAME:txtDateTime
591
- LEN:12
592
-
593
-
594
-
595
- NAME:txtDescription
596
- LEN:12
597
-
598
-
599
-
600
- NAME:txtMessage
601
- LEN:12
602
-
603
-
604
-
605
- NAME:txtReason
606
- LEN:12
607
-
608
-
609
-
610
- NAME:txtStackDump
611
- LEN:12
612
-
613
-
614
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessageDetails_mSetDetails.txt DELETED
@@ -1,23 +0,0 @@
1
- mSetDetails(pMessage : Message);
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- txtDateTime.text := pMessage.aFailureDateTime.String;
16
- txtReason.text := pMessage.aReason;
17
- txtDescription.text := pMessage.aDescription;
18
- txtMessage.text := pMessage.aBody;
19
- txtStackDump.text := pMessage.aStackDump;
20
-
21
- epilog
22
-
23
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_class_info.txt DELETED
@@ -1,689 +0,0 @@
1
- FormMessagingMgrMain
2
- MAP:
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:___windowPtr
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__children
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__userObject
26
- LEN:12
27
-
28
-
29
-
30
- NAME:_hyperText
31
- LEN:-1
32
-
33
-
34
-
35
- NAME:_modifiedBy
36
- LEN:31
37
-
38
-
39
-
40
- NAME:_modifiedTimestamp
41
- LEN:8
42
-
43
-
44
-
45
- NAME:_patchVersion
46
- LEN:4
47
-
48
-
49
-
50
- NAME:_sysDHTMLScript
51
- LEN:-1
52
-
53
-
54
-
55
- NAME:_systemVersion
56
- LEN:9
57
-
58
-
59
-
60
- NAME:_webCssClass
61
- LEN:-1
62
-
63
-
64
-
65
- NAME:_webCssDefinition
66
- LEN:-1
67
-
68
-
69
-
70
- NAME:_webEventMappings
71
- LEN:-1
72
-
73
-
74
-
75
- NAME:actualClipControls
76
- LEN:1
77
-
78
-
79
-
80
- NAME:actualEnabled
81
- LEN:1
82
-
83
-
84
-
85
- NAME:actualMousePointer
86
- LEN:4
87
-
88
-
89
-
90
- NAME:actualVisible
91
- LEN:1
92
-
93
-
94
-
95
- NAME:allControlChildren
96
- LEN:12
97
-
98
-
99
-
100
- NAME:autoRedraw
101
- LEN:1
102
-
103
-
104
-
105
- NAME:backBrushStyle
106
- LEN:4
107
-
108
-
109
-
110
- NAME:backColor
111
- LEN:4
112
-
113
-
114
-
115
- NAME:borderStyle
116
- LEN:4
117
-
118
-
119
-
120
- NAME:bubbleHelp
121
- LEN:-1
122
-
123
-
124
-
125
- NAME:controlChildren
126
- LEN:12
127
-
128
-
129
-
130
- NAME:description
131
- LEN:-1
132
-
133
-
134
-
135
- NAME:disableEvents
136
- LEN:1
137
-
138
-
139
-
140
- NAME:disableReason
141
- LEN:-1
142
-
143
-
144
-
145
- NAME:dragCursor
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:dragMode
151
- LEN:4
152
-
153
-
154
-
155
- NAME:drawFillColor
156
- LEN:4
157
-
158
-
159
-
160
- NAME:drawFillStyle
161
- LEN:4
162
-
163
-
164
-
165
- NAME:drawFontBold
166
- LEN:1
167
-
168
-
169
-
170
- NAME:drawFontItalic
171
- LEN:1
172
-
173
-
174
-
175
- NAME:drawFontName
176
- LEN:-1
177
-
178
-
179
-
180
- NAME:drawFontSize
181
- LEN:8
182
-
183
-
184
-
185
- NAME:drawFontStrikethru
186
- LEN:1
187
-
188
-
189
-
190
- NAME:drawFontUnderline
191
- LEN:1
192
-
193
-
194
-
195
- NAME:drawMode
196
- LEN:4
197
-
198
-
199
-
200
- NAME:drawStyle
201
- LEN:4
202
-
203
-
204
-
205
- NAME:drawTextAlign
206
- LEN:4
207
-
208
-
209
-
210
- NAME:drawTextCharRotation
211
- LEN:8
212
-
213
-
214
-
215
- NAME:drawTextRotation
216
- LEN:8
217
-
218
-
219
-
220
- NAME:drawWidth
221
- LEN:4
222
-
223
-
224
-
225
- NAME:drawWindow
226
- LEN:4
227
-
228
-
229
-
230
- NAME:enabled
231
- LEN:1
232
-
233
-
234
-
235
- NAME:height
236
- LEN:8
237
-
238
-
239
-
240
- NAME:helpContextId
241
- LEN:4
242
-
243
-
244
-
245
- NAME:helpKeyword
246
- LEN:-1
247
-
248
-
249
-
250
- NAME:ignoreSkin
251
- LEN:1
252
-
253
-
254
-
255
- NAME:left
256
- LEN:8
257
-
258
-
259
-
260
- NAME:mouseCursor
261
- LEN:-1
262
-
263
-
264
-
265
- NAME:mousePointer
266
- LEN:4
267
-
268
-
269
-
270
- NAME:name
271
- LEN:101
272
-
273
-
274
-
275
- NAME:scaleHeight
276
- LEN:8
277
-
278
-
279
-
280
- NAME:scaleLeft
281
- LEN:8
282
-
283
-
284
-
285
- NAME:scaleMode
286
- LEN:4
287
-
288
-
289
-
290
- NAME:scaleTop
291
- LEN:8
292
-
293
-
294
-
295
- NAME:scaleWidth
296
- LEN:8
297
-
298
-
299
-
300
- NAME:securityLevelEnabled
301
- LEN:4
302
-
303
-
304
-
305
- NAME:securityLevelVisible
306
- LEN:4
307
-
308
-
309
-
310
- NAME:skinCategoryName
311
- LEN:101
312
-
313
-
314
-
315
- NAME:tag
316
- LEN:-1
317
-
318
-
319
-
320
- NAME:top
321
- LEN:8
322
-
323
-
324
-
325
- NAME:userObject
326
- LEN:12
327
-
328
-
329
-
330
- NAME:userScript
331
- LEN:-1
332
-
333
-
334
-
335
- NAME:visible
336
- LEN:1
337
-
338
-
339
-
340
- NAME:width
341
- LEN:8
342
-
343
-
344
-
345
- NAME:_createdControls
346
- LEN:12
347
-
348
-
349
-
350
- NAME:_eventMappings
351
- LEN:-1
352
-
353
-
354
-
355
- NAME:_formBuildData
356
- LEN:-1
357
-
358
-
359
-
360
- NAME:_painterModifiedTimeStamp
361
- LEN:8
362
-
363
-
364
-
365
- NAME:_saveControlData
366
- LEN:12
367
-
368
-
369
-
370
- NAME:_webEnableHttpRequest
371
- LEN:1
372
-
373
-
374
-
375
- NAME:_webRegenPage
376
- LEN:1
377
-
378
-
379
-
380
- NAME:actualWindowState
381
- LEN:4
382
-
383
-
384
-
385
- NAME:allMenuItems
386
- LEN:12
387
-
388
-
389
-
390
- NAME:allowClose
391
- LEN:1
392
-
393
-
394
-
395
- NAME:allowDocking
396
- LEN:4
397
-
398
-
399
-
400
- NAME:applications
401
- LEN:12
402
-
403
-
404
-
405
- NAME:backBrush
406
- LEN:-1
407
-
408
-
409
-
410
- NAME:caption
411
- LEN:256
412
-
413
-
414
-
415
- NAME:clientHeight
416
- LEN:4
417
-
418
-
419
-
420
- NAME:clientWidth
421
- LEN:4
422
-
423
-
424
-
425
- NAME:clipControls
426
- LEN:1
427
-
428
-
429
-
430
- NAME:controlBox
431
- LEN:1
432
-
433
-
434
-
435
- NAME:controlList
436
- LEN:12
437
-
438
-
439
-
440
- NAME:formBuildDataTStrings
441
- LEN:12
442
-
443
-
444
-
445
- NAME:icon
446
- LEN:-1
447
-
448
-
449
-
450
- NAME:locale
451
- LEN:12
452
-
453
-
454
-
455
- NAME:maxButton
456
- LEN:1
457
-
458
-
459
-
460
- NAME:mdiChild
461
- LEN:4
462
-
463
-
464
-
465
- NAME:mdiClientScrollHorzPos
466
- LEN:4
467
-
468
-
469
-
470
- NAME:mdiClientScrollVertPos
471
- LEN:4
472
-
473
-
474
-
475
- NAME:mdiFrame
476
- LEN:1
477
-
478
-
479
-
480
- NAME:menuList
481
- LEN:12
482
-
483
-
484
-
485
- NAME:minButton
486
- LEN:1
487
-
488
-
489
-
490
- NAME:minimumHeight
491
- LEN:4
492
-
493
-
494
-
495
- NAME:minimumWidth
496
- LEN:4
497
-
498
-
499
-
500
- NAME:modalResult
501
- LEN:4
502
-
503
-
504
-
505
- NAME:paintedDialogBaseUnits
506
- LEN:4
507
-
508
-
509
-
510
- NAME:printerForm
511
- LEN:1
512
-
513
-
514
-
515
- NAME:scaleForm
516
- LEN:1
517
-
518
-
519
-
520
- NAME:scrollBars
521
- LEN:4
522
-
523
-
524
-
525
- NAME:scrollHorzPos
526
- LEN:4
527
-
528
-
529
-
530
- NAME:scrollVertPos
531
- LEN:4
532
-
533
-
534
-
535
- NAME:secureForm
536
- LEN:1
537
-
538
-
539
-
540
- NAME:topLevelMenuItems
541
- LEN:12
542
-
543
-
544
-
545
- NAME:userProfile
546
- LEN:12
547
-
548
-
549
-
550
- NAME:webBrowserAutoRefreshInterval
551
- LEN:4
552
-
553
-
554
-
555
- NAME:webBrowserAutoRefreshURL
556
- LEN:-1
557
-
558
-
559
-
560
- NAME:webBrowserDisableBackButton
561
- LEN:1
562
-
563
-
564
-
565
- NAME:webEncodingType
566
- LEN:1
567
-
568
-
569
-
570
- NAME:webFileName
571
- LEN:-1
572
-
573
-
574
-
575
- NAME:webForm
576
- LEN:1
577
-
578
-
579
-
580
- NAME:windowState
581
- LEN:4
582
-
583
-
584
-
585
- NAME:fraMDI
586
- LEN:12
587
-
588
-
589
-
590
- NAME:jdbRight
591
- LEN:12
592
-
593
-
594
-
595
- NAME:jdbRightInside
596
- LEN:12
597
-
598
-
599
-
600
- NAME:jdbToolbar
601
- LEN:12
602
-
603
-
604
-
605
- NAME:jdcMain
606
- LEN:12
607
-
608
-
609
-
610
- NAME:jdcStatusLine
611
- LEN:12
612
-
613
-
614
-
615
- NAME:jdcStatusLine_1
616
- LEN:12
617
-
618
-
619
-
620
- NAME:jdcStatus_0
621
- LEN:12
622
-
623
-
624
-
625
- NAME:jdcStatus_1
626
- LEN:12
627
-
628
-
629
-
630
- NAME:jdcStatus_3
631
- LEN:12
632
-
633
-
634
-
635
- NAME:jdcStatus_4
636
- LEN:12
637
-
638
-
639
-
640
- NAME:jdcStatus_5
641
- LEN:12
642
-
643
-
644
-
645
- NAME:jdcStatus_6
646
- LEN:12
647
-
648
-
649
-
650
- NAME:jdcStatus_7
651
- LEN:12
652
-
653
-
654
-
655
- NAME:mnuExit
656
- LEN:12
657
-
658
-
659
-
660
- NAME:mnuFile
661
- LEN:12
662
-
663
-
664
-
665
- NAME:mnuPreferences
666
- LEN:12
667
-
668
-
669
-
670
- NAME:mnuUtilities
671
- LEN:12
672
-
673
-
674
-
675
- NAME:staDate
676
- LEN:12
677
-
678
-
679
-
680
- NAME:staMainStatus
681
- LEN:12
682
-
683
-
684
-
685
- NAME:staUser
686
- LEN:12
687
-
688
-
689
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_initialize.txt DELETED
@@ -1,44 +0,0 @@
1
- initialize() updating;
2
- /*
3
-
4
- Created : 09 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
- vForm : FormMessagingMonitor;
14
-
15
- begin
16
- inheritMethod();
17
-
18
- //11170 - ThabanS - 10Dec2018
19
- if not app.myUser.mIsAllowedFormAccess(self.name, app.mGetSystemDate, APP_MESSAGING) then
20
- app.msgBox('You do have access to this form ' & self.name, LMS360, MsgBox_OK_Excl);
21
- terminate;
22
- endif;
23
-
24
- // Set the MDI frame and position.
25
- app.mdiFrame := class;
26
- moveMdiClient( fraMDI.getFormLeft, fraMDI.getFormTop, fraMDI.width, fraMDI.height);
27
-
28
- vForm := app.getForm(FormMessagingMonitor.name).FormMessagingMonitor;
29
- if vForm = null then
30
- create vForm;
31
- endif;
32
- vForm.show;
33
-
34
- staUser.caption := app.myUser.mGetName;
35
- staDate.caption := app.actualTimeServer.date.String;
36
- // staDate.caption := app.mGetSystemDate.String;
37
- mSetStatusBar('Messaging Manager');
38
-
39
-
40
-
41
-
42
- epilog
43
-
44
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_jdbRight_userResize.txt DELETED
@@ -1,19 +0,0 @@
1
- jdbRight_userResize(dockBar: JadeDockBar input) updating;
2
- /*
3
-
4
- Created : 09 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- mResize;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_mResize.txt DELETED
@@ -1,20 +0,0 @@
1
- mResize();
2
- /*
3
-
4
- Created : 09 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
-
16
- // When resizing, we need to reset the mdi area.
17
- moveMdiClient( fraMDI.getFormLeft, fraMDI.getFormTop, fraMDI.width, fraMDI.height);
18
- epilog
19
-
20
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_mSetStatusBar.txt DELETED
@@ -1,19 +0,0 @@
1
- mSetStatusBar(pMessage : String);
2
- /*
3
-
4
- Created : 10 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- staMainStatus.caption := pMessage;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_mUserPreferences.txt DELETED
@@ -1,19 +0,0 @@
1
- mUserPreferences();
2
- /*
3
-
4
- Created : 13 January 2009 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
-
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_mnuExit_click.txt DELETED
@@ -1,19 +0,0 @@
1
- mnuExit_click(menuItem: MenuItem input) updating;
2
- /*
3
-
4
- Created : 13 January 2009 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- self.unloadForm;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_mnuPreferences_click.txt DELETED
@@ -1,19 +0,0 @@
1
- mnuPreferences_click(menuItem: MenuItem input) updating;
2
- /*
3
-
4
- Created : 13 January 2009 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- mUserPreferences;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrMain_resize.txt DELETED
@@ -1,19 +0,0 @@
1
- resize() updating;
2
- /*
3
-
4
- Created : 09 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- mResize;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgrModal_class_info.txt DELETED
@@ -1,584 +0,0 @@
1
- FormMessagingMgrModal
2
- MAP:
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:___windowPtr
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__children
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__userObject
26
- LEN:12
27
-
28
-
29
-
30
- NAME:_hyperText
31
- LEN:-1
32
-
33
-
34
-
35
- NAME:_modifiedBy
36
- LEN:31
37
-
38
-
39
-
40
- NAME:_modifiedTimestamp
41
- LEN:8
42
-
43
-
44
-
45
- NAME:_patchVersion
46
- LEN:4
47
-
48
-
49
-
50
- NAME:_sysDHTMLScript
51
- LEN:-1
52
-
53
-
54
-
55
- NAME:_systemVersion
56
- LEN:9
57
-
58
-
59
-
60
- NAME:_webCssClass
61
- LEN:-1
62
-
63
-
64
-
65
- NAME:_webCssDefinition
66
- LEN:-1
67
-
68
-
69
-
70
- NAME:_webEventMappings
71
- LEN:-1
72
-
73
-
74
-
75
- NAME:actualClipControls
76
- LEN:1
77
-
78
-
79
-
80
- NAME:actualEnabled
81
- LEN:1
82
-
83
-
84
-
85
- NAME:actualMousePointer
86
- LEN:4
87
-
88
-
89
-
90
- NAME:actualVisible
91
- LEN:1
92
-
93
-
94
-
95
- NAME:allControlChildren
96
- LEN:12
97
-
98
-
99
-
100
- NAME:autoRedraw
101
- LEN:1
102
-
103
-
104
-
105
- NAME:backBrushStyle
106
- LEN:4
107
-
108
-
109
-
110
- NAME:backColor
111
- LEN:4
112
-
113
-
114
-
115
- NAME:borderStyle
116
- LEN:4
117
-
118
-
119
-
120
- NAME:bubbleHelp
121
- LEN:-1
122
-
123
-
124
-
125
- NAME:controlChildren
126
- LEN:12
127
-
128
-
129
-
130
- NAME:description
131
- LEN:-1
132
-
133
-
134
-
135
- NAME:disableEvents
136
- LEN:1
137
-
138
-
139
-
140
- NAME:disableReason
141
- LEN:-1
142
-
143
-
144
-
145
- NAME:dragCursor
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:dragMode
151
- LEN:4
152
-
153
-
154
-
155
- NAME:drawFillColor
156
- LEN:4
157
-
158
-
159
-
160
- NAME:drawFillStyle
161
- LEN:4
162
-
163
-
164
-
165
- NAME:drawFontBold
166
- LEN:1
167
-
168
-
169
-
170
- NAME:drawFontItalic
171
- LEN:1
172
-
173
-
174
-
175
- NAME:drawFontName
176
- LEN:-1
177
-
178
-
179
-
180
- NAME:drawFontSize
181
- LEN:8
182
-
183
-
184
-
185
- NAME:drawFontStrikethru
186
- LEN:1
187
-
188
-
189
-
190
- NAME:drawFontUnderline
191
- LEN:1
192
-
193
-
194
-
195
- NAME:drawMode
196
- LEN:4
197
-
198
-
199
-
200
- NAME:drawStyle
201
- LEN:4
202
-
203
-
204
-
205
- NAME:drawTextAlign
206
- LEN:4
207
-
208
-
209
-
210
- NAME:drawTextCharRotation
211
- LEN:8
212
-
213
-
214
-
215
- NAME:drawTextRotation
216
- LEN:8
217
-
218
-
219
-
220
- NAME:drawWidth
221
- LEN:4
222
-
223
-
224
-
225
- NAME:drawWindow
226
- LEN:4
227
-
228
-
229
-
230
- NAME:enabled
231
- LEN:1
232
-
233
-
234
-
235
- NAME:height
236
- LEN:8
237
-
238
-
239
-
240
- NAME:helpContextId
241
- LEN:4
242
-
243
-
244
-
245
- NAME:helpKeyword
246
- LEN:-1
247
-
248
-
249
-
250
- NAME:ignoreSkin
251
- LEN:1
252
-
253
-
254
-
255
- NAME:left
256
- LEN:8
257
-
258
-
259
-
260
- NAME:mouseCursor
261
- LEN:-1
262
-
263
-
264
-
265
- NAME:mousePointer
266
- LEN:4
267
-
268
-
269
-
270
- NAME:name
271
- LEN:101
272
-
273
-
274
-
275
- NAME:scaleHeight
276
- LEN:8
277
-
278
-
279
-
280
- NAME:scaleLeft
281
- LEN:8
282
-
283
-
284
-
285
- NAME:scaleMode
286
- LEN:4
287
-
288
-
289
-
290
- NAME:scaleTop
291
- LEN:8
292
-
293
-
294
-
295
- NAME:scaleWidth
296
- LEN:8
297
-
298
-
299
-
300
- NAME:securityLevelEnabled
301
- LEN:4
302
-
303
-
304
-
305
- NAME:securityLevelVisible
306
- LEN:4
307
-
308
-
309
-
310
- NAME:skinCategoryName
311
- LEN:101
312
-
313
-
314
-
315
- NAME:tag
316
- LEN:-1
317
-
318
-
319
-
320
- NAME:top
321
- LEN:8
322
-
323
-
324
-
325
- NAME:userObject
326
- LEN:12
327
-
328
-
329
-
330
- NAME:userScript
331
- LEN:-1
332
-
333
-
334
-
335
- NAME:visible
336
- LEN:1
337
-
338
-
339
-
340
- NAME:width
341
- LEN:8
342
-
343
-
344
-
345
- NAME:_createdControls
346
- LEN:12
347
-
348
-
349
-
350
- NAME:_eventMappings
351
- LEN:-1
352
-
353
-
354
-
355
- NAME:_formBuildData
356
- LEN:-1
357
-
358
-
359
-
360
- NAME:_painterModifiedTimeStamp
361
- LEN:8
362
-
363
-
364
-
365
- NAME:_saveControlData
366
- LEN:12
367
-
368
-
369
-
370
- NAME:_webEnableHttpRequest
371
- LEN:1
372
-
373
-
374
-
375
- NAME:_webRegenPage
376
- LEN:1
377
-
378
-
379
-
380
- NAME:actualWindowState
381
- LEN:4
382
-
383
-
384
-
385
- NAME:allMenuItems
386
- LEN:12
387
-
388
-
389
-
390
- NAME:allowClose
391
- LEN:1
392
-
393
-
394
-
395
- NAME:allowDocking
396
- LEN:4
397
-
398
-
399
-
400
- NAME:applications
401
- LEN:12
402
-
403
-
404
-
405
- NAME:backBrush
406
- LEN:-1
407
-
408
-
409
-
410
- NAME:caption
411
- LEN:256
412
-
413
-
414
-
415
- NAME:clientHeight
416
- LEN:4
417
-
418
-
419
-
420
- NAME:clientWidth
421
- LEN:4
422
-
423
-
424
-
425
- NAME:clipControls
426
- LEN:1
427
-
428
-
429
-
430
- NAME:controlBox
431
- LEN:1
432
-
433
-
434
-
435
- NAME:controlList
436
- LEN:12
437
-
438
-
439
-
440
- NAME:formBuildDataTStrings
441
- LEN:12
442
-
443
-
444
-
445
- NAME:icon
446
- LEN:-1
447
-
448
-
449
-
450
- NAME:locale
451
- LEN:12
452
-
453
-
454
-
455
- NAME:maxButton
456
- LEN:1
457
-
458
-
459
-
460
- NAME:mdiChild
461
- LEN:4
462
-
463
-
464
-
465
- NAME:mdiClientScrollHorzPos
466
- LEN:4
467
-
468
-
469
-
470
- NAME:mdiClientScrollVertPos
471
- LEN:4
472
-
473
-
474
-
475
- NAME:mdiFrame
476
- LEN:1
477
-
478
-
479
-
480
- NAME:menuList
481
- LEN:12
482
-
483
-
484
-
485
- NAME:minButton
486
- LEN:1
487
-
488
-
489
-
490
- NAME:minimumHeight
491
- LEN:4
492
-
493
-
494
-
495
- NAME:minimumWidth
496
- LEN:4
497
-
498
-
499
-
500
- NAME:modalResult
501
- LEN:4
502
-
503
-
504
-
505
- NAME:paintedDialogBaseUnits
506
- LEN:4
507
-
508
-
509
-
510
- NAME:printerForm
511
- LEN:1
512
-
513
-
514
-
515
- NAME:scaleForm
516
- LEN:1
517
-
518
-
519
-
520
- NAME:scrollBars
521
- LEN:4
522
-
523
-
524
-
525
- NAME:scrollHorzPos
526
- LEN:4
527
-
528
-
529
-
530
- NAME:scrollVertPos
531
- LEN:4
532
-
533
-
534
-
535
- NAME:secureForm
536
- LEN:1
537
-
538
-
539
-
540
- NAME:topLevelMenuItems
541
- LEN:12
542
-
543
-
544
-
545
- NAME:userProfile
546
- LEN:12
547
-
548
-
549
-
550
- NAME:webBrowserAutoRefreshInterval
551
- LEN:4
552
-
553
-
554
-
555
- NAME:webBrowserAutoRefreshURL
556
- LEN:-1
557
-
558
-
559
-
560
- NAME:webBrowserDisableBackButton
561
- LEN:1
562
-
563
-
564
-
565
- NAME:webEncodingType
566
- LEN:1
567
-
568
-
569
-
570
- NAME:webFileName
571
- LEN:-1
572
-
573
-
574
-
575
- NAME:webForm
576
- LEN:1
577
-
578
-
579
-
580
- NAME:windowState
581
- LEN:4
582
-
583
-
584
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgr_class_info.txt DELETED
@@ -1,584 +0,0 @@
1
- FormMessagingMgr
2
- MAP:
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:___windowPtr
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__children
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__userObject
26
- LEN:12
27
-
28
-
29
-
30
- NAME:_hyperText
31
- LEN:-1
32
-
33
-
34
-
35
- NAME:_modifiedBy
36
- LEN:31
37
-
38
-
39
-
40
- NAME:_modifiedTimestamp
41
- LEN:8
42
-
43
-
44
-
45
- NAME:_patchVersion
46
- LEN:4
47
-
48
-
49
-
50
- NAME:_sysDHTMLScript
51
- LEN:-1
52
-
53
-
54
-
55
- NAME:_systemVersion
56
- LEN:9
57
-
58
-
59
-
60
- NAME:_webCssClass
61
- LEN:-1
62
-
63
-
64
-
65
- NAME:_webCssDefinition
66
- LEN:-1
67
-
68
-
69
-
70
- NAME:_webEventMappings
71
- LEN:-1
72
-
73
-
74
-
75
- NAME:actualClipControls
76
- LEN:1
77
-
78
-
79
-
80
- NAME:actualEnabled
81
- LEN:1
82
-
83
-
84
-
85
- NAME:actualMousePointer
86
- LEN:4
87
-
88
-
89
-
90
- NAME:actualVisible
91
- LEN:1
92
-
93
-
94
-
95
- NAME:allControlChildren
96
- LEN:12
97
-
98
-
99
-
100
- NAME:autoRedraw
101
- LEN:1
102
-
103
-
104
-
105
- NAME:backBrushStyle
106
- LEN:4
107
-
108
-
109
-
110
- NAME:backColor
111
- LEN:4
112
-
113
-
114
-
115
- NAME:borderStyle
116
- LEN:4
117
-
118
-
119
-
120
- NAME:bubbleHelp
121
- LEN:-1
122
-
123
-
124
-
125
- NAME:controlChildren
126
- LEN:12
127
-
128
-
129
-
130
- NAME:description
131
- LEN:-1
132
-
133
-
134
-
135
- NAME:disableEvents
136
- LEN:1
137
-
138
-
139
-
140
- NAME:disableReason
141
- LEN:-1
142
-
143
-
144
-
145
- NAME:dragCursor
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:dragMode
151
- LEN:4
152
-
153
-
154
-
155
- NAME:drawFillColor
156
- LEN:4
157
-
158
-
159
-
160
- NAME:drawFillStyle
161
- LEN:4
162
-
163
-
164
-
165
- NAME:drawFontBold
166
- LEN:1
167
-
168
-
169
-
170
- NAME:drawFontItalic
171
- LEN:1
172
-
173
-
174
-
175
- NAME:drawFontName
176
- LEN:-1
177
-
178
-
179
-
180
- NAME:drawFontSize
181
- LEN:8
182
-
183
-
184
-
185
- NAME:drawFontStrikethru
186
- LEN:1
187
-
188
-
189
-
190
- NAME:drawFontUnderline
191
- LEN:1
192
-
193
-
194
-
195
- NAME:drawMode
196
- LEN:4
197
-
198
-
199
-
200
- NAME:drawStyle
201
- LEN:4
202
-
203
-
204
-
205
- NAME:drawTextAlign
206
- LEN:4
207
-
208
-
209
-
210
- NAME:drawTextCharRotation
211
- LEN:8
212
-
213
-
214
-
215
- NAME:drawTextRotation
216
- LEN:8
217
-
218
-
219
-
220
- NAME:drawWidth
221
- LEN:4
222
-
223
-
224
-
225
- NAME:drawWindow
226
- LEN:4
227
-
228
-
229
-
230
- NAME:enabled
231
- LEN:1
232
-
233
-
234
-
235
- NAME:height
236
- LEN:8
237
-
238
-
239
-
240
- NAME:helpContextId
241
- LEN:4
242
-
243
-
244
-
245
- NAME:helpKeyword
246
- LEN:-1
247
-
248
-
249
-
250
- NAME:ignoreSkin
251
- LEN:1
252
-
253
-
254
-
255
- NAME:left
256
- LEN:8
257
-
258
-
259
-
260
- NAME:mouseCursor
261
- LEN:-1
262
-
263
-
264
-
265
- NAME:mousePointer
266
- LEN:4
267
-
268
-
269
-
270
- NAME:name
271
- LEN:101
272
-
273
-
274
-
275
- NAME:scaleHeight
276
- LEN:8
277
-
278
-
279
-
280
- NAME:scaleLeft
281
- LEN:8
282
-
283
-
284
-
285
- NAME:scaleMode
286
- LEN:4
287
-
288
-
289
-
290
- NAME:scaleTop
291
- LEN:8
292
-
293
-
294
-
295
- NAME:scaleWidth
296
- LEN:8
297
-
298
-
299
-
300
- NAME:securityLevelEnabled
301
- LEN:4
302
-
303
-
304
-
305
- NAME:securityLevelVisible
306
- LEN:4
307
-
308
-
309
-
310
- NAME:skinCategoryName
311
- LEN:101
312
-
313
-
314
-
315
- NAME:tag
316
- LEN:-1
317
-
318
-
319
-
320
- NAME:top
321
- LEN:8
322
-
323
-
324
-
325
- NAME:userObject
326
- LEN:12
327
-
328
-
329
-
330
- NAME:userScript
331
- LEN:-1
332
-
333
-
334
-
335
- NAME:visible
336
- LEN:1
337
-
338
-
339
-
340
- NAME:width
341
- LEN:8
342
-
343
-
344
-
345
- NAME:_createdControls
346
- LEN:12
347
-
348
-
349
-
350
- NAME:_eventMappings
351
- LEN:-1
352
-
353
-
354
-
355
- NAME:_formBuildData
356
- LEN:-1
357
-
358
-
359
-
360
- NAME:_painterModifiedTimeStamp
361
- LEN:8
362
-
363
-
364
-
365
- NAME:_saveControlData
366
- LEN:12
367
-
368
-
369
-
370
- NAME:_webEnableHttpRequest
371
- LEN:1
372
-
373
-
374
-
375
- NAME:_webRegenPage
376
- LEN:1
377
-
378
-
379
-
380
- NAME:actualWindowState
381
- LEN:4
382
-
383
-
384
-
385
- NAME:allMenuItems
386
- LEN:12
387
-
388
-
389
-
390
- NAME:allowClose
391
- LEN:1
392
-
393
-
394
-
395
- NAME:allowDocking
396
- LEN:4
397
-
398
-
399
-
400
- NAME:applications
401
- LEN:12
402
-
403
-
404
-
405
- NAME:backBrush
406
- LEN:-1
407
-
408
-
409
-
410
- NAME:caption
411
- LEN:256
412
-
413
-
414
-
415
- NAME:clientHeight
416
- LEN:4
417
-
418
-
419
-
420
- NAME:clientWidth
421
- LEN:4
422
-
423
-
424
-
425
- NAME:clipControls
426
- LEN:1
427
-
428
-
429
-
430
- NAME:controlBox
431
- LEN:1
432
-
433
-
434
-
435
- NAME:controlList
436
- LEN:12
437
-
438
-
439
-
440
- NAME:formBuildDataTStrings
441
- LEN:12
442
-
443
-
444
-
445
- NAME:icon
446
- LEN:-1
447
-
448
-
449
-
450
- NAME:locale
451
- LEN:12
452
-
453
-
454
-
455
- NAME:maxButton
456
- LEN:1
457
-
458
-
459
-
460
- NAME:mdiChild
461
- LEN:4
462
-
463
-
464
-
465
- NAME:mdiClientScrollHorzPos
466
- LEN:4
467
-
468
-
469
-
470
- NAME:mdiClientScrollVertPos
471
- LEN:4
472
-
473
-
474
-
475
- NAME:mdiFrame
476
- LEN:1
477
-
478
-
479
-
480
- NAME:menuList
481
- LEN:12
482
-
483
-
484
-
485
- NAME:minButton
486
- LEN:1
487
-
488
-
489
-
490
- NAME:minimumHeight
491
- LEN:4
492
-
493
-
494
-
495
- NAME:minimumWidth
496
- LEN:4
497
-
498
-
499
-
500
- NAME:modalResult
501
- LEN:4
502
-
503
-
504
-
505
- NAME:paintedDialogBaseUnits
506
- LEN:4
507
-
508
-
509
-
510
- NAME:printerForm
511
- LEN:1
512
-
513
-
514
-
515
- NAME:scaleForm
516
- LEN:1
517
-
518
-
519
-
520
- NAME:scrollBars
521
- LEN:4
522
-
523
-
524
-
525
- NAME:scrollHorzPos
526
- LEN:4
527
-
528
-
529
-
530
- NAME:scrollVertPos
531
- LEN:4
532
-
533
-
534
-
535
- NAME:secureForm
536
- LEN:1
537
-
538
-
539
-
540
- NAME:topLevelMenuItems
541
- LEN:12
542
-
543
-
544
-
545
- NAME:userProfile
546
- LEN:12
547
-
548
-
549
-
550
- NAME:webBrowserAutoRefreshInterval
551
- LEN:4
552
-
553
-
554
-
555
- NAME:webBrowserAutoRefreshURL
556
- LEN:-1
557
-
558
-
559
-
560
- NAME:webBrowserDisableBackButton
561
- LEN:1
562
-
563
-
564
-
565
- NAME:webEncodingType
566
- LEN:1
567
-
568
-
569
-
570
- NAME:webFileName
571
- LEN:-1
572
-
573
-
574
-
575
- NAME:webForm
576
- LEN:1
577
-
578
-
579
-
580
- NAME:windowState
581
- LEN:4
582
-
583
-
584
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgr_initialize.txt DELETED
@@ -1,19 +0,0 @@
1
- initialize()updating;
2
- /*
3
-
4
- Created : 16 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- centreWindow;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMgr_load.txt DELETED
@@ -1,19 +0,0 @@
1
- load() updating;
2
- /*
3
-
4
- Created : 16 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- initialize;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_class_info.txt DELETED
@@ -1,689 +0,0 @@
1
- FormMessagingMonitor
2
- MAP:
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:___windowPtr
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__children
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__userObject
26
- LEN:12
27
-
28
-
29
-
30
- NAME:_hyperText
31
- LEN:-1
32
-
33
-
34
-
35
- NAME:_modifiedBy
36
- LEN:31
37
-
38
-
39
-
40
- NAME:_modifiedTimestamp
41
- LEN:8
42
-
43
-
44
-
45
- NAME:_patchVersion
46
- LEN:4
47
-
48
-
49
-
50
- NAME:_sysDHTMLScript
51
- LEN:-1
52
-
53
-
54
-
55
- NAME:_systemVersion
56
- LEN:9
57
-
58
-
59
-
60
- NAME:_webCssClass
61
- LEN:-1
62
-
63
-
64
-
65
- NAME:_webCssDefinition
66
- LEN:-1
67
-
68
-
69
-
70
- NAME:_webEventMappings
71
- LEN:-1
72
-
73
-
74
-
75
- NAME:actualClipControls
76
- LEN:1
77
-
78
-
79
-
80
- NAME:actualEnabled
81
- LEN:1
82
-
83
-
84
-
85
- NAME:actualMousePointer
86
- LEN:4
87
-
88
-
89
-
90
- NAME:actualVisible
91
- LEN:1
92
-
93
-
94
-
95
- NAME:allControlChildren
96
- LEN:12
97
-
98
-
99
-
100
- NAME:autoRedraw
101
- LEN:1
102
-
103
-
104
-
105
- NAME:backBrushStyle
106
- LEN:4
107
-
108
-
109
-
110
- NAME:backColor
111
- LEN:4
112
-
113
-
114
-
115
- NAME:borderStyle
116
- LEN:4
117
-
118
-
119
-
120
- NAME:bubbleHelp
121
- LEN:-1
122
-
123
-
124
-
125
- NAME:controlChildren
126
- LEN:12
127
-
128
-
129
-
130
- NAME:description
131
- LEN:-1
132
-
133
-
134
-
135
- NAME:disableEvents
136
- LEN:1
137
-
138
-
139
-
140
- NAME:disableReason
141
- LEN:-1
142
-
143
-
144
-
145
- NAME:dragCursor
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:dragMode
151
- LEN:4
152
-
153
-
154
-
155
- NAME:drawFillColor
156
- LEN:4
157
-
158
-
159
-
160
- NAME:drawFillStyle
161
- LEN:4
162
-
163
-
164
-
165
- NAME:drawFontBold
166
- LEN:1
167
-
168
-
169
-
170
- NAME:drawFontItalic
171
- LEN:1
172
-
173
-
174
-
175
- NAME:drawFontName
176
- LEN:-1
177
-
178
-
179
-
180
- NAME:drawFontSize
181
- LEN:8
182
-
183
-
184
-
185
- NAME:drawFontStrikethru
186
- LEN:1
187
-
188
-
189
-
190
- NAME:drawFontUnderline
191
- LEN:1
192
-
193
-
194
-
195
- NAME:drawMode
196
- LEN:4
197
-
198
-
199
-
200
- NAME:drawStyle
201
- LEN:4
202
-
203
-
204
-
205
- NAME:drawTextAlign
206
- LEN:4
207
-
208
-
209
-
210
- NAME:drawTextCharRotation
211
- LEN:8
212
-
213
-
214
-
215
- NAME:drawTextRotation
216
- LEN:8
217
-
218
-
219
-
220
- NAME:drawWidth
221
- LEN:4
222
-
223
-
224
-
225
- NAME:drawWindow
226
- LEN:4
227
-
228
-
229
-
230
- NAME:enabled
231
- LEN:1
232
-
233
-
234
-
235
- NAME:height
236
- LEN:8
237
-
238
-
239
-
240
- NAME:helpContextId
241
- LEN:4
242
-
243
-
244
-
245
- NAME:helpKeyword
246
- LEN:-1
247
-
248
-
249
-
250
- NAME:ignoreSkin
251
- LEN:1
252
-
253
-
254
-
255
- NAME:left
256
- LEN:8
257
-
258
-
259
-
260
- NAME:mouseCursor
261
- LEN:-1
262
-
263
-
264
-
265
- NAME:mousePointer
266
- LEN:4
267
-
268
-
269
-
270
- NAME:name
271
- LEN:101
272
-
273
-
274
-
275
- NAME:scaleHeight
276
- LEN:8
277
-
278
-
279
-
280
- NAME:scaleLeft
281
- LEN:8
282
-
283
-
284
-
285
- NAME:scaleMode
286
- LEN:4
287
-
288
-
289
-
290
- NAME:scaleTop
291
- LEN:8
292
-
293
-
294
-
295
- NAME:scaleWidth
296
- LEN:8
297
-
298
-
299
-
300
- NAME:securityLevelEnabled
301
- LEN:4
302
-
303
-
304
-
305
- NAME:securityLevelVisible
306
- LEN:4
307
-
308
-
309
-
310
- NAME:skinCategoryName
311
- LEN:101
312
-
313
-
314
-
315
- NAME:tag
316
- LEN:-1
317
-
318
-
319
-
320
- NAME:top
321
- LEN:8
322
-
323
-
324
-
325
- NAME:userObject
326
- LEN:12
327
-
328
-
329
-
330
- NAME:userScript
331
- LEN:-1
332
-
333
-
334
-
335
- NAME:visible
336
- LEN:1
337
-
338
-
339
-
340
- NAME:width
341
- LEN:8
342
-
343
-
344
-
345
- NAME:_createdControls
346
- LEN:12
347
-
348
-
349
-
350
- NAME:_eventMappings
351
- LEN:-1
352
-
353
-
354
-
355
- NAME:_formBuildData
356
- LEN:-1
357
-
358
-
359
-
360
- NAME:_painterModifiedTimeStamp
361
- LEN:8
362
-
363
-
364
-
365
- NAME:_saveControlData
366
- LEN:12
367
-
368
-
369
-
370
- NAME:_webEnableHttpRequest
371
- LEN:1
372
-
373
-
374
-
375
- NAME:_webRegenPage
376
- LEN:1
377
-
378
-
379
-
380
- NAME:actualWindowState
381
- LEN:4
382
-
383
-
384
-
385
- NAME:allMenuItems
386
- LEN:12
387
-
388
-
389
-
390
- NAME:allowClose
391
- LEN:1
392
-
393
-
394
-
395
- NAME:allowDocking
396
- LEN:4
397
-
398
-
399
-
400
- NAME:applications
401
- LEN:12
402
-
403
-
404
-
405
- NAME:backBrush
406
- LEN:-1
407
-
408
-
409
-
410
- NAME:caption
411
- LEN:256
412
-
413
-
414
-
415
- NAME:clientHeight
416
- LEN:4
417
-
418
-
419
-
420
- NAME:clientWidth
421
- LEN:4
422
-
423
-
424
-
425
- NAME:clipControls
426
- LEN:1
427
-
428
-
429
-
430
- NAME:controlBox
431
- LEN:1
432
-
433
-
434
-
435
- NAME:controlList
436
- LEN:12
437
-
438
-
439
-
440
- NAME:formBuildDataTStrings
441
- LEN:12
442
-
443
-
444
-
445
- NAME:icon
446
- LEN:-1
447
-
448
-
449
-
450
- NAME:locale
451
- LEN:12
452
-
453
-
454
-
455
- NAME:maxButton
456
- LEN:1
457
-
458
-
459
-
460
- NAME:mdiChild
461
- LEN:4
462
-
463
-
464
-
465
- NAME:mdiClientScrollHorzPos
466
- LEN:4
467
-
468
-
469
-
470
- NAME:mdiClientScrollVertPos
471
- LEN:4
472
-
473
-
474
-
475
- NAME:mdiFrame
476
- LEN:1
477
-
478
-
479
-
480
- NAME:menuList
481
- LEN:12
482
-
483
-
484
-
485
- NAME:minButton
486
- LEN:1
487
-
488
-
489
-
490
- NAME:minimumHeight
491
- LEN:4
492
-
493
-
494
-
495
- NAME:minimumWidth
496
- LEN:4
497
-
498
-
499
-
500
- NAME:modalResult
501
- LEN:4
502
-
503
-
504
-
505
- NAME:paintedDialogBaseUnits
506
- LEN:4
507
-
508
-
509
-
510
- NAME:printerForm
511
- LEN:1
512
-
513
-
514
-
515
- NAME:scaleForm
516
- LEN:1
517
-
518
-
519
-
520
- NAME:scrollBars
521
- LEN:4
522
-
523
-
524
-
525
- NAME:scrollHorzPos
526
- LEN:4
527
-
528
-
529
-
530
- NAME:scrollVertPos
531
- LEN:4
532
-
533
-
534
-
535
- NAME:secureForm
536
- LEN:1
537
-
538
-
539
-
540
- NAME:topLevelMenuItems
541
- LEN:12
542
-
543
-
544
-
545
- NAME:userProfile
546
- LEN:12
547
-
548
-
549
-
550
- NAME:webBrowserAutoRefreshInterval
551
- LEN:4
552
-
553
-
554
-
555
- NAME:webBrowserAutoRefreshURL
556
- LEN:-1
557
-
558
-
559
-
560
- NAME:webBrowserDisableBackButton
561
- LEN:1
562
-
563
-
564
-
565
- NAME:webEncodingType
566
- LEN:1
567
-
568
-
569
-
570
- NAME:webFileName
571
- LEN:-1
572
-
573
-
574
-
575
- NAME:webForm
576
- LEN:1
577
-
578
-
579
-
580
- NAME:windowState
581
- LEN:4
582
-
583
-
584
-
585
- NAME:allFiles
586
- LEN:12
587
-
588
-
589
-
590
- NAME:fldFailFolder
591
- LEN:12
592
-
593
-
594
-
595
- NAME:fraAgents
596
- LEN:12
597
-
598
-
599
-
600
- NAME:fraAgentsTitle
601
- LEN:12
602
-
603
-
604
-
605
- NAME:fraFailures
606
- LEN:12
607
-
608
-
609
-
610
- NAME:fraFailuresTitle
611
- LEN:12
612
-
613
-
614
-
615
- NAME:fraFiles
616
- LEN:12
617
-
618
-
619
-
620
- NAME:fraMessages
621
- LEN:12
622
-
623
-
624
-
625
- NAME:jdbAgents
626
- LEN:12
627
-
628
-
629
-
630
- NAME:jdbFailures
631
- LEN:12
632
-
633
-
634
-
635
- NAME:jdbStatus
636
- LEN:12
637
-
638
-
639
-
640
- NAME:jdcTop
641
- LEN:12
642
-
643
-
644
-
645
- NAME:lblStatus
646
- LEN:12
647
-
648
-
649
-
650
- NAME:mnuDeleteFailure
651
- LEN:12
652
-
653
-
654
-
655
- NAME:mnuFailures
656
- LEN:12
657
-
658
-
659
-
660
- NAME:mnuViewFailure
661
- LEN:12
662
-
663
-
664
-
665
- NAME:shtfldFailFolderSheet1
666
- LEN:12
667
-
668
-
669
-
670
- NAME:shtfldFailFolderSheet2
671
- LEN:12
672
-
673
-
674
-
675
- NAME:tblAgents
676
- LEN:12
677
-
678
-
679
-
680
- NAME:tblFailures
681
- LEN:12
682
-
683
-
684
-
685
- NAME:tblFiles
686
- LEN:12
687
-
688
-
689
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_initialize.txt DELETED
@@ -1,21 +0,0 @@
1
- initialize() updating;
2
-
3
- vars
4
-
5
- begin
6
- inheritMethod();
7
-
8
- mFormatAgentTable;
9
- mLoadAgentTable;
10
-
11
- mFormatFailuresTable;
12
- shtfldFailFolderSheet1.visible := false;
13
- //mLoadFailuresTable;
14
-
15
- fraAgentsTitle.backColor := app.mGetColor(METRO_COLOR_RIBBON);
16
- fraFailuresTitle.backColor := app.mGetColor(METRO_COLOR_RIBBON);
17
-
18
- beginTimer(10000, Timer_Continuous, 12300);
19
- timerEvent(12300);
20
-
21
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_jdbAgents_userResize.txt DELETED
@@ -1,8 +0,0 @@
1
- jdbAgents_userResize(dockBar: JadeDockBar input) updating;
2
-
3
- vars
4
-
5
-
6
- begin
7
- mCheckSectionHeight;
8
- end;
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_jdbFailures_userResize.txt DELETED
@@ -1,19 +0,0 @@
1
- jdbFailures_userResize(dockBar: JadeDockBar input) updating;
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- mCheckSectionHeight;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mCheckSectionHeight.txt DELETED
@@ -1,12 +0,0 @@
1
- mCheckSectionHeight() updating;
2
-
3
- vars
4
-
5
- begin
6
-
7
- if jdbAgents.height < 24 then
8
- jdbAgents.height := 24;
9
- endif;
10
-
11
-
12
- end;
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mDeleteMessageFailure.txt DELETED
@@ -1,29 +0,0 @@
1
- mDeleteMessageFailure();
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
- vMessage : Message;
14
- vText : String;
15
- vResponse : Integer;
16
-
17
- begin
18
- vText := 'Are you sure you wish to delete this failed message.';
19
- vResponse := app.msgBox(vText, LMS360, MsgBox_OK_Cancel + MsgBox_Exclamation_Mark_Icon);
20
- if vResponse = MsgBox_Return_OK then
21
- vMessage := tblFailures.accessRow(tblFailures.row).itemObject.Message;
22
- beginTransaction;
23
- delete vMessage;
24
- commitTransaction;
25
- endif;
26
-
27
- epilog
28
-
29
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mFormatAgentTable.txt DELETED
@@ -1,25 +0,0 @@
1
- mFormatAgentTable();
2
- /*
3
-
4
- Created : 16 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- tblAgents.rows := tblAgents.fixedRows;
16
- tblAgents.mSetColumnSorted(1, 'Worker', 0, Table.Alignment_Left, Table.SortType_Alpha);
17
- tblAgents.mSetColumnSorted(2, 'Status', 0, Table.Alignment_Left, Table.SortType_Alpha);
18
- tblAgents.mSetColumnSorted(3, 'Descriptor', 0, Table.Alignment_Left, Table.SortType_Alpha);
19
-
20
- tblAgents.accessMode := Table.AccessMode_Row;
21
- tblAgents.selectMode := Table.SelectMode_WholeRows;
22
-
23
- epilog
24
-
25
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mFormatFailuresTable.txt DELETED
@@ -1,34 +0,0 @@
1
- mFormatFailuresTable();
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- tblFailures.rows := tblFailures.fixedRows;
16
- tblFailures.mSetColumnSorted(1, 'Date/Time', 0, Table.Alignment_Left, Table.SortType_Alpha);
17
- tblFailures.mSetColumnSorted(2, 'Reason', 0, Table.Alignment_Left, Table.SortType_Alpha);
18
- tblFailures.mSetColumnSorted(3, 'File Name', 0, Table.Alignment_Left, Table.SortType_Alpha);
19
- tblFailures.mSetColumnSorted(4, 'Description', 0, Table.Alignment_Left, Table.SortType_Alpha);
20
-
21
- tblFailures.accessMode := Table.AccessMode_Row;
22
- tblFailures.selectMode := Table.SelectMode_WholeRows;
23
-
24
-
25
- tblFiles.rows := tblFailures.fixedRows;
26
- tblFiles.columns := 1;
27
- tblFiles.mSetColumnSorted(1, 'File', 0, Table.Alignment_Left, Table.SortType_Alpha);
28
- tblFiles.accessMode := Table.AccessMode_Row;
29
- tblFiles.selectMode := Table.SelectMode_WholeRows;
30
-
31
-
32
- epilog
33
-
34
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mLoadAgentTable.txt DELETED
@@ -1,21 +0,0 @@
1
- mLoadAgentTable();
2
- /*
3
-
4
- Created : 16 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- tblAgents.rows := tblAgents.fixedRows;
16
-
17
- tblAgents.mDisplayCollectionSorted(app.myMessagingRoot.allRunningWorkers, true, 0, null);
18
-
19
- epilog
20
-
21
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mLoadFailuresTable.txt DELETED
@@ -1,22 +0,0 @@
1
- mLoadFailuresTable();
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- tblFailures.rows := tblFailures.fixedRows;
16
-
17
- tblFailures.mDisplayCollectionSorted2(app.myMessagingRoot.allFailedMessages, true, 0, null);
18
-
19
-
20
- epilog
21
-
22
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mRefreshFailedFiles.txt DELETED
@@ -1,21 +0,0 @@
1
- mRefreshFailedFiles() serverExecution;
2
-
3
- //
4
- // Created : 10 September 2018 by ThabanS
5
- //
6
- // Purpose :
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
-
16
- begin
17
-
18
-
19
- epilog
20
-
21
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mViewMessageFailure.txt DELETED
@@ -1,25 +0,0 @@
1
- mViewMessageFailure();
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
- vForm : FormMessageDetails;
14
- vMessage : Message;
15
-
16
- begin
17
- vMessage := tblFailures.accessRow(tblFailures.row).itemObject.Message;
18
-
19
- create vForm transient;
20
- vForm.mSetDetails(vMessage);
21
- vForm.showModal;
22
-
23
- epilog
24
- delete vForm;
25
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mnuDeleteFailure_click.txt DELETED
@@ -1,19 +0,0 @@
1
- mnuDeleteFailure_click(menuItem: MenuItem input) updating;
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- mDeleteMessageFailure;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_mnuViewFailure_click.txt DELETED
@@ -1,19 +0,0 @@
1
- mnuViewFailure_click(menuItem: MenuItem input) updating;
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- mViewMessageFailure;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_tblAgents_displayRow.txt DELETED
@@ -1,19 +0,0 @@
1
- tblAgents_displayRow(table: Table input; theSheet: Integer; obj: Object; theRow: Integer; bcontinue: Boolean io):String updating;
2
- /*
3
-
4
- Created : 16 September 2008 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- return obj.MessagingWorker.mTableDisplay;
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFailures_contextMenu.txt DELETED
@@ -1,41 +0,0 @@
1
- tblFailures_contextMenu(table: Table input; conwin: Window input; mouse: Boolean; x: Integer; y: Integer):Boolean updating;
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
- x1 : Real;
14
- y1 : Real;
15
- vRecentIndex : Integer;
16
- vRow : Integer;
17
- vCol : Integer;
18
- vMessage : Message;
19
-
20
- begin
21
- if table.row = table.fixedRows then
22
- return false;
23
- endif;
24
-
25
- vMessage := table.accessRow(table.row).itemObject.Message;
26
-
27
- x1 := x;
28
- y1 := y;
29
-
30
- table.windowToScreen(x1, y1);
31
- screenToWindow(x1, y1);
32
-
33
- mnuViewFailure.enabled := vMessage <> null;
34
- mnuDeleteFailure.enabled := vMessage <> null;
35
-
36
- popupMenu(mnuFailures, x1.Integer, y1.Integer);
37
- return false;
38
-
39
- epilog
40
-
41
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFailures_displayRow.txt DELETED
@@ -1,22 +0,0 @@
1
- tblFailures_displayRow(table: Table input; theSheet: Integer; obj: Object; theRow: Integer; bcontinue: Boolean io):String updating;
2
- /*
3
-
4
- Created : 24 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- if theRow <= 600 and obj.Message.aFileName <> null and (app.actualTime-obj.Message.creationTime).cnDays > 3*30 then
16
- return obj.Message.mTableDisplay;
17
- endif;
18
-
19
- return null;
20
- epilog
21
-
22
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFiles_dblClick.txt DELETED
@@ -1,31 +0,0 @@
1
- tblFiles_dblClick(table: Table input) updating;
2
-
3
- //
4
- // Created : 07 December 2018 by ThabanS
5
- //
6
- // Purpose :
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
- vFile : String;
16
- begin
17
-
18
- vFile := tblFiles.getCellText(tblFiles.row,tblFiles.column);
19
-
20
- if vFile <> null and global.mAskYesNo('Re-ingest file : ' & vFile) then
21
-
22
- write app.mGetMsgProcessorErrorFilesDir & vFile;
23
- write app.mGetMessageProcessorReceive2 & vFile.mReplaceString('Error_',null);
24
-
25
- app.mMoveFileServer(app.mGetMsgProcessorErrorFilesDir & vFile, app.mGetMessageProcessorReceive2 & vFile);
26
-
27
- endif;
28
-
29
- epilog
30
-
31
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFiles_displayRow.txt DELETED
@@ -1,22 +0,0 @@
1
- tblFiles_displayRow(table: Table input; theSheet: Integer; obj: Object; theRow: Integer; bcontinue: Boolean io):String updating;
2
-
3
- //
4
- // Created : 07 December 2018 by ThabanS
5
- //
6
- // Purpose :
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
-
16
- begin
17
-
18
- return obj.CoreKeyValueNode.aStringVal;
19
-
20
- epilog
21
-
22
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_tblFiles_keyDown.txt DELETED
@@ -1,40 +0,0 @@
1
- tblFiles_keyDown(table: Table input; keyCode: Integer io; shift: Integer) updating;
2
-
3
- //
4
- // Created : 07 December 2018 by ThabanS
5
- //
6
- // Purpose :
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
- vRow : Integer;
16
- vArray : CnStringArrayv2;
17
- vFile2 : String;
18
-
19
- begin
20
-
21
- if keyCode = J_key_Delete and global.mAskYesNo('Delete Files?') then
22
-
23
- create vArray transient;
24
-
25
- foreach vRow in tblFiles.fixedRows+1 to tblFiles.rows where vRow <= tblFiles.rows do
26
- if tblFiles.accessRow(vRow).selected then
27
- vArray.add(app.mGetMsgProcessorErrorFilesDir & tblFiles.getCellText(vRow,1));
28
- tblFiles.accessRow(vRow).visible := false;
29
- endif;
30
- endforeach;
31
-
32
- foreach vFile2 in vArray do
33
- app.mDeleteFileServer(vFile2);
34
- endforeach;
35
-
36
- endif;
37
-
38
- epilog
39
- delete vArray;
40
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/FormMessagingMonitor_timerEvent.txt DELETED
@@ -1,31 +0,0 @@
1
- timerEvent(eventTag: Integer) updating;
2
-
3
- //
4
- // Created : 07 December 2018 by ThabanS
5
- //
6
- // Purpose :
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
- vFile : String;
16
- vAns : CnStringArrayv2;
17
- begin
18
-
19
-
20
- if eventTag = 12300 then
21
- tblFiles.mClearToFixedRows;
22
- vAns := app.mGetErrorFiles;
23
- foreach vFile in vAns do
24
- tblFiles.mAddRow(vFile, null);
25
- endforeach;
26
-
27
- endif;
28
-
29
- epilog
30
- delete vAns;
31
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//{TO → FROM}/FormPoolAddComponent_mValidate.txt RENAMED
@@ -45,6 +45,12 @@ begin
45
  vValidated := false;
46
  continue;
47
  endif;
 
 
 
 
 
 
48
  allValidatedPackCompLinks.add( vPackCompLink);
49
  endforeach;
50
 
45
  vValidated := false;
46
  continue;
47
  endif;
48
+ // #HTB-1479 NormanA 13Nov22 {124658} : don't add pledged loans
49
+ if vShadComp.myComponent.myAccount.myUnderwritingData.getPledgedAccount <> null then
50
+ vResult := vResult & 'Cannot add loan to Pool as it is pledged to a Financial Institution.';
51
+ vValidated := false;
52
+ continue;
53
+ endif;
54
  allValidatedPackCompLinks.add( vPackCompLink);
55
  endforeach;
56
 
C://PATCH_CONTROL//{TO → FROM}/FormRenewalWizard_mPopulateFormFromRenewalEvntFO.txt RENAMED
@@ -67,12 +66,21 @@ begin
67
  vAllocation := vAllocationGrp.allAllocationItems.mFindByInternalContact(vRenewalEvent.myOrigRenewalEvent.myAllocatedContact, self.myCalculator.myAccount);
68
 
69
  if vAllocation = null and vAllocationGrp.allAllocationItemsByEmpl[vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee] = null then
 
 
 
 
 
 
 
70
  create vAllocationTemp transient;
71
  vAllocationTemp.mSetAllocationGroup(vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myTeam);
72
  vAllocationTemp.mSetEmployee(vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee);
73
  vList.add(vAllocationTemp);
74
  cboAllocateTo.listCollection(vList, false, 0);
75
  cboAllocateTo.listObject := vAllocationTemp;
 
 
76
  elseif vAllocationGrp.allAllocationItemsByEmpl[vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee] <> null then
77
  cboAllocateTo.listObject := vAllocationGrp.allAllocationItemsByEmpl[vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee];
78
  else
66
  vAllocation := vAllocationGrp.allAllocationItems.mFindByInternalContact(vRenewalEvent.myOrigRenewalEvent.myAllocatedContact, self.myCalculator.myAccount);
67
 
68
  if vAllocation = null and vAllocationGrp.allAllocationItemsByEmpl[vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee] = null then
69
+ //#HTB-895 SaulL 22Dec21 {124115}: If Allocated Contact is an inactive user, assign the first Active one in the list
70
+ if vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee.myUser <> null and
71
+ vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee.myUser.myStatus = app.mGetTerminology(TT_LOGON_STATUS,INACTIVE) then
72
+ // #HTB-895 SaulL 15Jun22 {124115}: Find the first Active Employee in the list and directly assign it to the Drop-down list listObject
73
+ cboAllocateTo.listObject := cboAllocateTo.getCollection.first.AllocatedAccounts;
74
+ //#HTB-895 SaulL 16Jun22 {124115}: when the allocated user is active, just display the user
75
+ else
76
  create vAllocationTemp transient;
77
  vAllocationTemp.mSetAllocationGroup(vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myTeam);
78
  vAllocationTemp.mSetEmployee(vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee);
79
  vList.add(vAllocationTemp);
80
  cboAllocateTo.listCollection(vList, false, 0);
81
  cboAllocateTo.listObject := vAllocationTemp;
82
+ endif;
83
+ //End of #HTB-895
84
  elseif vAllocationGrp.allAllocationItemsByEmpl[vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee] <> null then
85
  cboAllocateTo.listObject := vAllocationGrp.allAllocationItemsByEmpl[vRenewalEvent.myOrigRenewalEvent.myAllocatedContact.myEmployee];
86
  else
C://PATCH_CONTROL//FROM/FormWorkPackageTransaction_mGetFundsTypes.txt ADDED
@@ -0,0 +1,45 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mGetFundsTypes(): FundsTypeDict;
2
+ /*************************************************************************************************
3
+ Date Created: 24 June 2022
4
+ Created By: MarkusJ
5
+ Method Name: mGetFundsTypes
6
+ Patch Number: 124482
7
+ Ticket: HTB-1532
8
+ Purpose: Get FundsType dict for table display on parent form methods - caller to delete dict obj
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ----------- --------------------------------------------------------------
12
+ ddMMMyy
13
+ *************************************************************************************************/
14
+
15
+ vars
16
+ vPackage : Package;
17
+ vPackageComponent : PackageComponentLink;
18
+ vFundsTypes : FundsTypeDict;
19
+ vFundsType : FundsType;
20
+
21
+ begin
22
+ vPackage := mGetPrimaryObject.Package;
23
+
24
+ create vFundsTypes transient;
25
+
26
+ foreach vPackageComponent in vPackage.allPackCompLinks discreteLock do
27
+ foreach vFundsType in vPackageComponent.myShadowComponent.myComponent.myAccount.mySubLedger.allFundsTypesUsed discreteLock do
28
+ if not vFundsTypes.includes(vFundsType) and not vFundsType.mIsSystemManaged then
29
+ vFundsTypes.add(vFundsType);
30
+ endif;
31
+ endforeach;
32
+
33
+ foreach vFundsType in vPackageComponent.mySubLedger.allFundsTypesUsed discreteLock do
34
+ if not vFundsTypes.includes(vFundsType) and not vFundsType.mIsSystemManaged then
35
+ vFundsTypes.add(vFundsType);
36
+ endif;
37
+ endforeach;
38
+ endforeach;
39
+
40
+ return vFundsTypes;
41
+
42
+ epilog
43
+
44
+
45
+ end;
C://PATCH_CONTROL//FROM/FormWorkTransaction_mGetFundsTypes.txt ADDED
@@ -0,0 +1,34 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mGetFundsTypes(): FundsTypeDict;
2
+ /*************************************************************************************************
3
+ Date Created: 24 June 2022
4
+ Created By: MarkusJ
5
+ Method Name: mGetFundsTypes
6
+ Patch Number: 124482
7
+ Ticket: HTB-1532
8
+ Purpose: Get FundsType dict for table display - caller to delete dict obj
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ----------- --------------------------------------------------------------
12
+ ddMMMyy
13
+ *************************************************************************************************/
14
+
15
+ vars
16
+ vAccount : Account;
17
+ vFundsTypes : FundsTypeDict;
18
+
19
+ begin
20
+ create vFundsTypes transient;
21
+
22
+ if mGetPrimaryObject.class = Account then
23
+ vAccount := mGetPrimaryObject.Account;
24
+ vAccount.mySubLedger.allFundsTypesUsed.copy(vFundsTypes);
25
+ elseif mGetPrimaryObject.class = Municipality then
26
+ mGetPrimaryObject.Municipality.allLenderLinks[app.myLender.virtName].mySubLedger.allFundsTypesUsed.copy(vFundsTypes);
27
+ endif;
28
+
29
+ return vFundsTypes;
30
+
31
+ epilog
32
+
33
+
34
+ end;
C://PATCH_CONTROL//{TO → FROM}/FormWorkTransaction_mLoadFundsTypeTable.txt RENAMED
@@ -15,6 +15,8 @@ vars
15
 
16
  begin
17
 
 
 
18
  create vFundsTypes transient;
19
 
20
  if mGetPrimaryObject.class = Account then
@@ -23,8 +25,8 @@ begin
23
  elseif mGetPrimaryObject.class = Municipality then
24
  mGetPrimaryObject.Municipality.allLenderLinks[app.myLender.virtName].mySubLedger.allFundsTypesUsed.copy(vFundsTypes);
25
  endif;
26
-
27
-
28
 
29
  create vSelected transient;
30
  vFundsTypes.copy(vSelected);
15
 
16
  begin
17
 
18
+ // #HTB-1532 MarkusJ 24Jun22 {124482} : Refactor into own method to include child form logic
19
+ /*
20
  create vFundsTypes transient;
21
 
22
  if mGetPrimaryObject.class = Account then
25
  elseif mGetPrimaryObject.class = Municipality then
26
  mGetPrimaryObject.Municipality.allLenderLinks[app.myLender.virtName].mySubLedger.allFundsTypesUsed.copy(vFundsTypes);
27
  endif;
28
+ */
29
+ vFundsTypes := mGetFundsTypes;
30
 
31
  create vSelected transient;
32
  vFundsTypes.copy(vSelected);
C://PATCH_CONTROL//{TO → FROM}/FundingAddress_mAnonymize.txt RENAMED
@@ -98,14 +98,13 @@ begin
98
 
99
  vGeneratedAddress := vAnonymizer.generateStreetAddress;
100
  vFullAddress := vGeneratedAddress.mBuildAddress(CrLf,false);
101
- vCity := vGeneratedAddress.aCity;
 
102
  vMailingAddress := vGeneratedAddress.mBuildAddress(" ",true);
103
  // #HTB-432 Gaurav 08Dec20 {123290} : Keep Postal Code anon rules consistent.
104
  vPostalCode := aPostalCode[1:3].String & "0X0";
105
-
106
- if vGeneratedAddress.myProvinceNEW <> null then
107
- vProvince := vGeneratedAddress.myProvinceNEW.mGetKeyName;
108
- endif;
109
 
110
  endif;
111
 
98
 
99
  vGeneratedAddress := vAnonymizer.generateStreetAddress;
100
  vFullAddress := vGeneratedAddress.mBuildAddress(CrLf,false);
101
+ // #HTB-1482 MarkusJ 09Nov22 {124733} : Keep City Anon Rules Consitent
102
+ vCity := aCity;
103
  vMailingAddress := vGeneratedAddress.mBuildAddress(" ",true);
104
  // #HTB-432 Gaurav 08Dec20 {123290} : Keep Postal Code anon rules consistent.
105
  vPostalCode := aPostalCode[1:3].String & "0X0";
106
+ // #HTB-1482 MarkusJ 09Nov22 {124733} : Keep Province Anon Rules Consitent
107
+ vProvince := aProvince;
 
 
108
 
109
  endif;
110
 
C://PATCH_CONTROL//TO/GMessagingSchema_class_info.txt DELETED
@@ -1,24 +0,0 @@
1
- GMessagingSchema
2
- MAP:Message
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:_systemBasic
16
- LEN:1
17
-
18
-
19
-
20
- NAME:aVersion
21
- LEN:16
22
-
23
-
24
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//{TO → FROM}/GeneralTxnAgent_trxUpdateFeeCode.txt RENAMED
@@ -35,7 +35,9 @@ trxUpdateFeeCode( pFeeCode : FeeCode io;
35
  pMultiplyTerm : Terminology;
36
  // #CTC-419 ChristopherD 30Nov20 {123305} : Adding to a new attribute
37
  pFullyAmortizeOnSaleToInvestor : Boolean;
38
- pFeeCodeInvestorTypeLinkDict : FeeCodeInvestorTypeLinkByInvTypeDict
 
 
39
  ) updating;
40
 
41
  /*************************************************************************************************
@@ -50,6 +52,7 @@ Date Ticket Patch Who Description
50
  ------- ------ ------ ----------- --------------------------------------------------------------
51
  19May20 HTB-101 122903 ThabanS added pLocaleDict
52
  12Apr22 HTB-1355 124293 Markus added pFeeCodeInvestorTypeLinkDict for FeeCodeInvestorTypeLinks on Sale
 
53
  *************************************************************************************************/
54
 
55
  vars
@@ -102,8 +105,9 @@ begin
102
  pDepositTxn,
103
  pMultiplyTerm,
104
  // #CTC-419 ChristopherD 04Dec20 {123305} : New property
105
- pFullyAmortizeOnSaleToInvestor
106
- );
 
107
 
108
  // #HTB-101 ThabanS 19May20 {122903} : added locale save
109
  if pLocaleDict <> null then
35
  pMultiplyTerm : Terminology;
36
  // #CTC-419 ChristopherD 30Nov20 {123305} : Adding to a new attribute
37
  pFullyAmortizeOnSaleToInvestor : Boolean;
38
+ pFeeCodeInvestorTypeLinkDict : FeeCodeInvestorTypeLinkByInvTypeDict;
39
+ //#HTB-1433 SaulL 04Nov22 {124813}: Adding a new property, aNotIncludedInAdvStm
40
+ pNotIncludedInAdvStm : Boolean
41
  ) updating;
42
 
43
  /*************************************************************************************************
52
  ------- ------ ------ ----------- --------------------------------------------------------------
53
  19May20 HTB-101 122903 ThabanS added pLocaleDict
54
  12Apr22 HTB-1355 124293 Markus added pFeeCodeInvestorTypeLinkDict for FeeCodeInvestorTypeLinks on Sale
55
+ 04Nov22 HTB-1433 124813 SaulL Adding a new property, aNotIncludedInAdvStm
56
  *************************************************************************************************/
57
 
58
  vars
105
  pDepositTxn,
106
  pMultiplyTerm,
107
  // #CTC-419 ChristopherD 04Dec20 {123305} : New property
108
+ pFullyAmortizeOnSaleToInvestor,
109
+ //#HTB-1433 SaulL 04Nov22 {124813}: Adding a new property, aNotIncludedInAdvStm
110
+ pNotIncludedInAdvStm);
111
 
112
  // #HTB-101 ThabanS 19May20 {122903} : added locale save
113
  if pLocaleDict <> null then
C://PATCH_CONTROL//{TO → FROM}/GeneralTxnAgent_trxUpdateInvestorType.txt RENAMED
@@ -14,7 +14,8 @@ trxUpdateInvestorType( pInvestorType : InvestorType io;
14
  pLOB : Terminology;
15
  pPostToCurrentInvestor : Boolean;
16
  pIgnorePoolCriteriaAutoSale : Boolean;
17
- pUseInvestorBankFund : Boolean
 
18
  ) : Boolean updating;
19
  //Ticket 10102 - AlexanderV - 2018-04-30 - added pOvernightRemittancePosting
20
  //
@@ -101,6 +102,10 @@ begin
101
  // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
102
  pInvestorType.setUseInvestorBankAccountOnSale(pUseInvestorBankFund);
103
 
 
 
 
 
104
  vAudit.mCompleteAudit;
105
  mCommitTrxTransaction;
106
 
14
  pLOB : Terminology;
15
  pPostToCurrentInvestor : Boolean;
16
  pIgnorePoolCriteriaAutoSale : Boolean;
17
+ pUseInvestorBankFund : Boolean;
18
+ pDefaultPool : String
19
  ) : Boolean updating;
20
  //Ticket 10102 - AlexanderV - 2018-04-30 - added pOvernightRemittancePosting
21
  //
102
  // #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
103
  pInvestorType.setUseInvestorBankAccountOnSale(pUseInvestorBankFund);
104
 
105
+ // #HTB-1479 NormanA 31Oct22 {124658} : add planning pool text to update Investor type
106
+ if pDefaultPool <> null then
107
+ pInvestorType.mSetDefaultPool(pDefaultPool);
108
+ endif;
109
  vAudit.mCompleteAudit;
110
  mCommitTrxTransaction;
111
 
C://PATCH_CONTROL//{TO → FROM}/Individual_class_info.txt RENAMED
@@ -161,7 +161,7 @@ Terminology Type: CONTACT_TIME
161
 
162
  NAME:myPrimaryLanguage
163
  LEN:12
164
- PrimaryLanguage
165
 
166
  Terminology Type: LANGUAGE
167
 
161
 
162
  NAME:myPrimaryLanguage
163
  LEN:12
164
+ Contact Language
165
 
166
  Terminology Type: LANGUAGE
167
 
C://PATCH_CONTROL//{TO → FROM}/InvestorType_class_info.txt RENAMED
@@ -87,6 +87,11 @@ LEN:1
87
  Components Full
88
 
89
 
 
 
 
 
 
90
  NAME:aFlowPaymentTxns
91
  LEN:1
92
  FLow Payments Txns
87
  Components Full
88
 
89
 
90
+ NAME:aDefaultPool
91
+ LEN:31
92
+
93
+
94
+
95
  NAME:aFlowPaymentTxns
96
  LEN:1
97
  FLow Payments Txns
C://PATCH_CONTROL//FROM/InvestorType_mGetDefaultPool.txt ADDED
@@ -0,0 +1,18 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mGetDefaultPool(): String;
2
+ /*************************************************************************************************
3
+ Date Created: 31 October 2022
4
+ Created By: NormanA
5
+ Method Name: mGetDefaultPool
6
+ Patch Number: 124658
7
+ Ticket: HTB-1479
8
+ Purpose: Return default pool
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ----------- --------------------------------------------------------------
12
+ ddMMMyy
13
+ *************************************************************************************************/
14
+ vars
15
+
16
+ begin
17
+ return aDefaultPool;
18
+ end;
C://PATCH_CONTROL//FROM/InvestorType_mSetDefaultPool.txt ADDED
@@ -0,0 +1,18 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mSetDefaultPool(pDefaultPool: String) updating;
2
+ /*************************************************************************************************
3
+ Date Created: 31 October 2022
4
+ Created By: NormanA
5
+ Method Name: mSetDefaultPool
6
+ Patch Number: 124658
7
+ Ticket: HTB-1479
8
+ Purpose: Set Default pool
9
+
10
+ Date Ticket Patch Who Description
11
+ ------- ------ ------ ----------- --------------------------------------------------------------
12
+ ddMMMyy
13
+ *************************************************************************************************/
14
+ vars
15
+
16
+ begin
17
+ aDefaultPool := pDefaultPool;
18
+ end;
C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_class_info.txt ADDED
@@ -0,0 +1,161 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ JobExtractsPledgedLoans
2
+ MAP:JobGeneral
3
+
4
+ Date Created: 27 September 2022
5
+ Created By: NormanA
6
+ Class Name: JobExtractsPledgedLoans
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Modify Loans' Pledged Accounts based on input csv file
10
+
11
+ NAME:_persistentImpRefs
12
+ LEN:12
13
+
14
+
15
+
16
+ NAME:_transientImpRefs
17
+ LEN:12
18
+
19
+
20
+
21
+ NAME:aDeleted
22
+ LEN:1
23
+
24
+
25
+
26
+ NAME:aDescriptor
27
+ LEN:257
28
+
29
+
30
+
31
+ NAME:aEmailStatus
32
+ LEN:31
33
+
34
+
35
+
36
+ NAME:aEnableDate
37
+ LEN:4
38
+
39
+ The job or deck will be disabled until this date.
40
+
41
+ NAME:aEnabled
42
+ LEN:4
43
+
44
+ A job, deck job, or deck can be temporarily disabled.
45
+ If a deck job, it will be skipped without having to remove the job
46
+ from the deck or alter the schedule.
47
+
48
+ NAME:aFileRouted
49
+ LEN:1
50
+
51
+
52
+
53
+ NAME:aThreaded
54
+ LEN:1
55
+
56
+
57
+
58
+ NAME:allScheduledJobRuns
59
+ LEN:12
60
+
61
+
62
+
63
+ NAME:myAuxData
64
+ LEN:12
65
+
66
+
67
+
68
+ NAME:myJobRoot
69
+ LEN:12
70
+
71
+
72
+
73
+ NAME:mySchedule
74
+ LEN:12
75
+
76
+
77
+
78
+ NAME:aRetry
79
+ LEN:1
80
+
81
+
82
+
83
+ NAME:aRetryAttempts
84
+ LEN:4
85
+
86
+
87
+
88
+ NAME:aStopDeckOnFailure
89
+ LEN:1
90
+
91
+
92
+
93
+ NAME:aTimeBetweenRetrys
94
+ LEN:4
95
+
96
+
97
+
98
+ NAME:myJobDeck
99
+ LEN:12
100
+
101
+
102
+
103
+ NAME:aEntityName
104
+ LEN:31
105
+
106
+ Run a job for this selected entity.
107
+ (e.g. Lender Name, Creditor Name, etc)
108
+
109
+ NAME:aIsReportOnly
110
+ LEN:31
111
+
112
+
113
+
114
+ NAME:aIsTestRun
115
+ LEN:31
116
+
117
+
118
+
119
+ NAME:aOutputDirectory
120
+ LEN:-1
121
+
122
+
123
+
124
+ NAME:aOutputFile
125
+ LEN:-1
126
+
127
+
128
+
129
+ NAME:aDestinationDirectory
130
+ LEN:-1
131
+
132
+
133
+ Date Created: 27 September 2022
134
+ Created By: NormanA
135
+ Property Name: aDestinationDirectory
136
+ Patch Number: 124658
137
+ Ticket: HTB-1479
138
+ Purpose: Destination Directory
139
+
140
+ NAME:aInputDirectory
141
+ LEN:-1
142
+
143
+
144
+ Date Created: 27 September 2022
145
+ Created By: NormanA
146
+ Property Name: aInputDirectory
147
+ Patch Number: 124658
148
+ Ticket: HTB-1479
149
+ Purpose: Input file path
150
+
151
+ NAME:myLender
152
+ LEN:12
153
+
154
+
155
+ Date Created: 27 September 2022
156
+ Created By: NormanA
157
+ Property Name: myLender
158
+ Patch Number: 124658
159
+ Ticket: HTB-1479
160
+ Purpose: Lending Institution
161
+
C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mGetParamStrings.txt ADDED
@@ -0,0 +1,40 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mGetParamStrings(pParameters: HugeStringArray io);
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 27 September 2022
5
+ Created By: NormanA
6
+ Method Name: mGetParamStrings
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Get Parameter Strings
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+ vLender: String;
18
+ vDestinationDirectory: String;
19
+ vInputFileName: String;
20
+ begin
21
+
22
+ if myLender <> null then
23
+ vLender := myLender.mGetName;
24
+ endif;
25
+
26
+ vDestinationDirectory := aDestinationDirectory;
27
+ if vDestinationDirectory = null then
28
+ vDestinationDirectory := app.mGetINIFileSetting('LMSEnvironment', 'ExportPathGeneric', null);
29
+ endif;
30
+
31
+ vInputFileName := aInputDirectory;
32
+
33
+ pParameters.add('Lender' & Tab & vLender);
34
+ pParameters.add('Pledged Loan Extract CSV File' & Tab & vInputFileName);
35
+ pParameters.add('Destination Dir' & Tab & vDestinationDirectory);
36
+
37
+
38
+ epilog
39
+
40
+ end;
C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mListParams.txt ADDED
@@ -0,0 +1,9 @@
 
 
 
 
 
 
 
 
 
1
+ mListParams(pHelper: JobHelper);
2
+
3
+ vars
4
+
5
+ begin
6
+ pHelper.mWriteToLog("Lender " & Tab & myLender.mGetName);
7
+ pHelper.mWriteToLog("Pledged Loan Extract CSV File " & Tab & aInputDirectory);
8
+ pHelper.mWriteToLog("Destination " & Tab & aDestinationDirectory);
9
+ end;
C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mName.txt ADDED
@@ -0,0 +1,26 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mName(): String;
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 27 September 2022
5
+ Created By: NormanA
6
+ Method Name: mName
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Job Name
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+
18
+
19
+ begin
20
+ return "Pledged Loan - Import";
21
+
22
+
23
+ epilog
24
+
25
+
26
+ end;
C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mRun.txt ADDED
@@ -0,0 +1,172 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mRun(pHelper: JobHelper io): Boolean updating;
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 27 September 2022
5
+ Created By: NormanA
6
+ Method Name: mRun
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Job to set Loans Pledged Accounts based on the given csv file
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+ vInputDataFile: File;
18
+ vOutputDataFile: File;
19
+ vReportDataFile: File;
20
+ vReadLine: String;
21
+ vWriteLine: String;
22
+ vPos: Integer;
23
+
24
+ vAccount: Account;
25
+ vAccountID: String;
26
+ vInputPI: String;
27
+ vBool: String;
28
+ vLender: Lender;
29
+ vPledgedInstitution: Terminology;
30
+
31
+ vTotalLoansPledged: Integer;
32
+ vTotalLoansRemoved: Integer;
33
+ vTotalLoansUpdated: Integer;
34
+ begin
35
+
36
+ vTotalLoansPledged := 0;
37
+ vTotalLoansRemoved := 0;
38
+
39
+ create vInputDataFile transient;
40
+ // validate if path exists on the server
41
+ vInputDataFile.fileName := aInputDirectory;
42
+ if not vInputDataFile.isAvailable then
43
+ pHelper.mWriteToLog("Input File not found.");
44
+ return false;
45
+ endif;
46
+ vInputDataFile.kind := vInputDataFile.Kind_Unknown_Text;
47
+ vInputDataFile.mode := vInputDataFile.Mode_Input;
48
+ vInputDataFile.open;
49
+
50
+
51
+ pHelper.mWriteToLog("---Pledged Loan Extract Starting--");
52
+ create vOutputDataFile transient;
53
+ vOutputDataFile.fileName := aDestinationDirectory & "PledgedAccountsReport_" & app.mGetSystemDate.format('ddMMMyyyy') & "_CSV.csv";
54
+ vOutputDataFile.kind := vOutputDataFile.Kind_Unknown_Text;
55
+ vOutputDataFile.mode := vOutputDataFile.Mode_Output;
56
+ vOutputDataFile.open;
57
+ // #HTB-1479 NormanA 03Nov22 {124658} : adding Loan Status to the report
58
+ vOutputDataFile.writeLine("Loan# , Before , After, Loan Status");
59
+
60
+ create vReportDataFile transient;
61
+ vReportDataFile.fileName := aDestinationDirectory & "\PledgedAccountsReport_" & app.mGetSystemDate.format('ddMMMyyyy') & "_TXT.txt";
62
+ vReportDataFile.kind := vReportDataFile.Kind_Unknown_Text;
63
+ vReportDataFile.mode := vReportDataFile.Mode_Output;
64
+ vReportDataFile.open;
65
+ vLender := myLender;
66
+
67
+ // discard first row of column headings;
68
+ vInputDataFile.readLine;
69
+
70
+ app.myGeneralTxnAgent.mBeginTrxTransaction;
71
+ while not vInputDataFile.endOfFile do
72
+ vReadLine := vInputDataFile.readLine;
73
+ vPos := 1;
74
+ vAccountID := vReadLine.scanUntil(",", vPos).trimBlanks;
75
+ vAccount := vLender.allAccounts[vAccountID];
76
+ if vAccount <> null then
77
+ vPos := vPos + 1;
78
+
79
+ vInputPI := vReadLine.scanUntil(",", vPos).trimBlanks;
80
+ vPos := vPos + 1;
81
+
82
+ vBool := vReadLine.scanUntil(",", vPos).trimBlanks;
83
+
84
+ if vInputPI.String.length = 0 then
85
+ vWriteLine := "- Loan " & vAccountID & " not updated. " & vInputPI & " Instituition cannot be found.";
86
+ vReportDataFile.writeLine(vWriteLine);
87
+ pHelper.mWriteToLog(vWriteLine);
88
+ continue;
89
+ endif;
90
+
91
+ if vBool.String.toUpper <> "YES" and vBool.String.toUpper <> "NO" then
92
+ vWriteLine := "- Loan " & vAccountID & " not updated. Yes/No Action is not properly set.";
93
+ vReportDataFile.writeLine(vWriteLine);
94
+ pHelper.mWriteToLog(vWriteLine);
95
+ continue;
96
+ endif;
97
+
98
+ if vBool.String.toUpper = "YES" and vInputPI <> "" then
99
+ if app.mGetTerminology(TT_PLEDGED_ACCOUNT,vInputPI) = null then
100
+ vWriteLine := "- Loan " & vAccountID & " not updated. " & vInputPI & " Instituition cannot be found.";
101
+ vReportDataFile.writeLine(vWriteLine);
102
+ pHelper.mWriteToLog(vWriteLine);
103
+ continue;
104
+ endif;
105
+ vPledgedInstitution := app.mGetTerminology(TT_PLEDGED_ACCOUNT,vInputPI);
106
+ if vAccount.myStatus.mGetKeyName <> KN_ACTIVE then
107
+ vWriteLine := "- Loan " & vAccountID & " Cannot be updated because loan Status is not Active.";
108
+ vReportDataFile.writeLine(vWriteLine);
109
+ pHelper.mWriteToLog(vWriteLine);
110
+ elseif vAccount.myUnderwritingData.getPledgedAccount = vPledgedInstitution then
111
+ vWriteLine := "- Loan " & vAccountID & " is already pledged to FI, no updates made.";
112
+ vReportDataFile.writeLine(vWriteLine);
113
+ pHelper.mWriteToLog(vWriteLine);
114
+
115
+ vTotalLoansPledged := vTotalLoansPledged + 1;
116
+ else
117
+ vAccount.myUnderwritingData.setPledgedAccount(vPledgedInstitution);
118
+ // #HTB-1479 NormanA 03Nov22 {124658} : adding Loan status to the report
119
+ vWriteLine := vAccountID & " , , " & vAccount.myUnderwritingData.getPledgedAccount.mGetKeyName & ", " & vAccount.myStatus.mGetKeyName;
120
+ vOutputDataFile.writeLine(vWriteLine);
121
+ vWriteLine := "- Loan " & vAccountID & " has been pledged to " & vAccount.myUnderwritingData.getPledgedAccount.mGetKeyName;
122
+ vReportDataFile.writeLine(vWriteLine);
123
+ pHelper.mWriteToLog(vWriteLine);
124
+
125
+ vTotalLoansPledged := vTotalLoansPledged + 1;
126
+ endif;
127
+ else
128
+ if vAccount.myUnderwritingData.getPledgedAccount <> null then
129
+ // #HTB-1479 NormanA 03Nov22 {124658} : adding Loan status to the report
130
+ vWriteLine := vAccountID & " , " & vAccount.myUnderwritingData.getPledgedAccount.mGetKeyName & " , , " & vAccount.myStatus.mGetKeyName;
131
+ vOutputDataFile.writeLine(vWriteLine);
132
+ vTotalLoansRemoved := vTotalLoansRemoved + 1;
133
+ endif;
134
+ vAccount.myUnderwritingData.setPledgedAccount(null);
135
+ vWriteLine := "- Loan " & vAccountID & " Pledged Account set to null";
136
+ pHelper.mWriteToLog(vWriteLine);
137
+ vReportDataFile.writeLine(vWriteLine);
138
+ endif;
139
+
140
+ else
141
+ vWriteLine := "- Loan ID " & vAccountID & " not found.";
142
+ pHelper.mWriteToLog(vWriteLine);
143
+ vReportDataFile.writeLine(vWriteLine);
144
+ endif;
145
+ endwhile;
146
+ app.myGeneralTxnAgent.mCommitTrxTransaction;
147
+
148
+ vOutputDataFile.writeLine("");
149
+ vReportDataFile.writeLine("");
150
+ pHelper.mWriteToLog("");
151
+ vTotalLoansUpdated := vTotalLoansPledged + vTotalLoansRemoved;
152
+ vOutputDataFile.writeLine("Total Loans Remaining , " & vTotalLoansPledged.String);
153
+ vReportDataFile.writeLine("Total Loans Remaining : " & vTotalLoansPledged.String);
154
+ pHelper.mWriteToLog("Total Loans Remaining : " & vTotalLoansPledged.String);
155
+ vOutputDataFile.writeLine("Total Loans Removed , " & vTotalLoansRemoved.String);
156
+ vReportDataFile.writeLine("Total Loans Removed : " & vTotalLoansRemoved.String);
157
+ pHelper.mWriteToLog("Total Loans Removed : " & vTotalLoansRemoved.String);
158
+ vOutputDataFile.writeLine("Total Loans Updated , " & vTotalLoansUpdated.String);
159
+ vReportDataFile.writeLine("Total Loans Updated : " & vTotalLoansUpdated.String);
160
+ pHelper.mWriteToLog("Total Loans Updated : " & vTotalLoansUpdated.String);
161
+ pHelper.mWriteToLog("Pledge Loan Extract Finished.");
162
+
163
+ vInputDataFile.close;
164
+ vOutputDataFile.close;
165
+ vReportDataFile.close;
166
+ return true;
167
+ epilog
168
+ delete vInputDataFile;
169
+ delete vOutputDataFile;
170
+ delete vReportDataFile;
171
+
172
+ end;
C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mSetParameters.txt ADDED
@@ -0,0 +1,26 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mSetParameters(pParameters: HugeStringArray) updating;
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 27 September 2022
5
+ Created By: NormanA
6
+ Method Name: mSetParameters
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Set Job parameters
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+
18
+
19
+ begin
20
+ myLender := app.myInstitution.allLenders[pParameters[1]];
21
+ aInputDirectory := pParameters[2].trimBlanks;
22
+ aDestinationDirectory := pParameters[3].trimBlanks;
23
+ epilog
24
+
25
+
26
+ end;
C://PATCH_CONTROL//FROM/JobExtractsPledgedLoans_mValidateParams.txt ADDED
@@ -0,0 +1,52 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mValidateParams(pParameters: HugeStringArray io; pIndex: Integer output);
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 29 September 2022
5
+ Created By: NormanA
6
+ Method Name: mValidateParams
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Validate parameters for the job
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+ vLender : Lender;
18
+ vError : String;
19
+ vIndex : Integer;
20
+
21
+ begin
22
+ if pParameters[1] = null then
23
+ vIndex := 1;
24
+ vError := 'A lender is required.';
25
+ endif;
26
+
27
+ vLender := app.myInstitution.allLenders[pParameters[1]];
28
+
29
+ if vError = null and vLender = null then
30
+ vIndex := 1;
31
+ vError := 'The lender name entered does not exist';
32
+ endif;
33
+
34
+ if vError = null and not pParameters[2].mEndsWith(".csv") then
35
+ vIndex := 2;
36
+ vError := 'The input file path needs to be a .csv file';
37
+ endif;
38
+
39
+ if vError = null and not pParameters[3].mEndsWith('\') then
40
+ vIndex := 3;
41
+ vError := 'Make sure the Destination Dir is ends with \';
42
+ endif;
43
+
44
+ if vIndex > 0 then
45
+ pParameters.clear;
46
+ pParameters.add(vError);
47
+ pIndex := vIndex;
48
+ endif;
49
+ epilog
50
+
51
+
52
+ end;
C://PATCH_CONTROL//{TO → FROM}/JobPostEvents_mProcessJob.txt RENAMED
@@ -85,20 +84,35 @@ begin
85
  app.mSetMyLender(vLender);
86
  app.mSetUser(app.mGetProcessUser(vLender));
87
 
88
- // #HTB-1492 MarkusJ 20May22 {PROD HOTIFX} : Change collection to snapshot at time of job running
89
  create vEvents transient;
90
  vLender.allPendingEvents.copy(vEvents);
91
 
 
92
  // #HTB-554 Gaurav 19Apr21 {123575} : Brought over and adjusted for HTB mismatch
93
  // balance renewal posting.
94
  // #CTC-128 ThabanS 17Nov20 {123275} : balance bypass check - START
95
- // #HTB-1492 MarkusJ 20May22 {PROD HOTIFX} : Change collection to snapshot at time of job running
96
- foreach vEvent in vEvents where//vLender.allPendingEvents where
97
- vEvent.mIsRenewalEvent and
98
- vEvent.aEffectiveDate = vProcessDate
99
- do
100
  vRenewalEvent := vEvent.RenewalEvent;
101
  vAccount := vRenewalEvent.mGetAccount;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
102
  vCheckBalance := vAccount <> null and
103
  vAccount.myLender.allLineOfBusiness[vAccount.mGetLineOfBusiness] <> null and
104
  vAccount.myLender.allLineOfBusiness[vAccount.mGetLineOfBusiness].
84
  app.mSetMyLender(vLender);
85
  app.mSetUser(app.mGetProcessUser(vLender));
86
 
87
+ // #HTB-1492 MarkusJ 20May22 {PROD HOTFIX} : Change collection to snapshot at time of job running
88
  create vEvents transient;
89
  vLender.allPendingEvents.copy(vEvents);
90
 
91
+ // #HTB-1466 DarrellB 29-April-22 {124359}: exclude renewals on paid out loans
92
  // #HTB-554 Gaurav 19Apr21 {123575} : Brought over and adjusted for HTB mismatch
93
  // balance renewal posting.
94
  // #CTC-128 ThabanS 17Nov20 {123275} : balance bypass check - START
95
+ // #HTB-1492 MarkusJ 20May22 {PROD HOTFIX} : Change collection to snapshot at time of job running
96
+ foreach vEvent in vEvents//vLender.allPendingEvents
97
+ where vEvent.mIsRenewalEvent
98
+ and vEvent.aEffectiveDate = vProcessDate
99
+ and vEvent.mGetAccount <> null do
100
  vRenewalEvent := vEvent.RenewalEvent;
101
  vAccount := vRenewalEvent.mGetAccount;
102
+
103
+ // #HTB-1466 DarrellB 29-April-22 {124359}: exclude renewals on paid out loans
104
+ if vAccount.mIsClosed then
105
+ app.mWriteReportLine('Loan ' & vAccount.aAccountID & ' Renewal Event not Posted due to Account Status: Paid Out. ' & vEvent.aEffectiveDate.display);
106
+ // #HTB-1466 MarkusJ 03Oct22 {124359}: If Renewal Event is Accepted(which should be the case here) on Paid Out loan, Cancel the event
107
+ if vRenewalEvent.myStatus.mGetKeyName = KN_ACCEPTED then
108
+ app.myGeneralTxnAgent.mBeginTrxTransaction;
109
+ vRenewalEvent.mSetStatusByKeyName(KN_EVENT_CANCELLED);
110
+ app.myGeneralTxnAgent.mCommitTrxTransaction;
111
+ endif;
112
+ //Skip Renewal Events on Paid Out Loans
113
+ continue;
114
+ endif;
115
+
116
  vCheckBalance := vAccount <> null and
117
  vAccount.myLender.allLineOfBusiness[vAccount.mGetLineOfBusiness] <> null and
118
  vAccount.myLender.allLineOfBusiness[vAccount.mGetLineOfBusiness].
C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml_PrepaymentLetter_v0.txt RENAMED
@@ -36,6 +36,9 @@ vars
36
  vSecProp : SecuredProperty;
37
  vAccClient : AccountClient;
38
  vContactType : ContactType;
 
 
 
39
  begin
40
  create vDoc transient;
41
 
@@ -103,7 +106,16 @@ begin
103
 
104
  xml__ContactNode(pClient, 'MailingClient', vRoot);
105
  xml__CreateMainBorrowerTypeClients(pAccount, false, vRoot);
106
-
 
 
 
 
 
 
 
 
 
107
  return vDoc;
108
  epilog
109
 
36
  vSecProp : SecuredProperty;
37
  vAccClient : AccountClient;
38
  vContactType : ContactType;
39
+ // #HTB-1502 SaulL 14Sep22 {124680}: Added for EffectiveDate field
40
+ vAccountHistory : AccountHistory;
41
+ vEffectiveData : Date;
42
  begin
43
  create vDoc transient;
44
 
106
 
107
  xml__ContactNode(pClient, 'MailingClient', vRoot);
108
  xml__CreateMainBorrowerTypeClients(pAccount, false, vRoot);
109
+ // #HTB-1502 SaulL 14Sep22 {124680}: Added for EffectiveDate field
110
+ foreach vAccountHistory in pAccount.mySubLedger.allAccountHistory reversed where
111
+ vAccountHistory.mIsValid and
112
+ vAccountHistory.mIsAccountTxn and
113
+ vAccountHistory.AccountTxn.mGetTxnDefinition = app.myLender.allTxnDefinitions[KN_DEPOSIT, KN_PAYMENT, KN_PREPAYMENT] do
114
+ vEffectiveData := vAccountHistory.aEffectiveDate;
115
+ break;
116
+ endforeach;
117
+ locale_date(vRoot, 'EffectiveDate', vEffectiveData, null);
118
+ // End of #HTB-1502
119
  return vDoc;
120
  epilog
121
 
C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml_PrepaymentLetter_v1.txt RENAMED
@@ -31,7 +31,9 @@ vars
31
  vBalance,
32
  vPrevAmort,
33
  vRemAmort : Decimal[12,2];
34
-
 
 
35
  begin
36
  create vDoc transient;
37
 
@@ -96,7 +98,16 @@ begin
96
 
97
  xml__ContactNode(pClient, 'MailingClient', vRoot);
98
  xml__CreateMainBorrowerTypeClients(pAccount, false, vRoot);
99
-
 
 
 
 
 
 
 
 
 
100
  return vDoc;
101
  epilog
102
 
31
  vBalance,
32
  vPrevAmort,
33
  vRemAmort : Decimal[12,2];
34
+ // #HTB-1502 SaulL 14Sep22 {124680}: Added for EffectiveDate field
35
+ vAccountHistory : AccountHistory;
36
+ vEffectiveData : Date;
37
  begin
38
  create vDoc transient;
39
 
98
 
99
  xml__ContactNode(pClient, 'MailingClient', vRoot);
100
  xml__CreateMainBorrowerTypeClients(pAccount, false, vRoot);
101
+ // #HTB-1502 SaulL 14Sep22 {124680}: Added for EffectiveDate field
102
+ foreach vAccountHistory in pAccount.mySubLedger.allAccountHistory reversed where
103
+ vAccountHistory.mIsValid and
104
+ vAccountHistory.mIsAccountTxn and
105
+ vAccountHistory.AccountTxn.mGetTxnDefinition = app.myLender.allTxnDefinitions[KN_DEPOSIT, KN_PAYMENT, KN_PREPAYMENT] do
106
+ vEffectiveData := vAccountHistory.aEffectiveDate;
107
+ break;
108
+ endforeach;
109
+ locale_date(vRoot, 'EffectiveDate', vEffectiveData, null);
110
+ // End of #HTB-1502
111
  return vDoc;
112
  epilog
113
 
C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml__CreateCOB_v0.txt RENAMED
@@ -186,6 +186,19 @@ begin
186
 
187
  vXML.mAddElement('FeeBroker', 0.Decimal.currencyFormat);
188
 
 
 
 
 
 
 
 
 
 
 
 
 
 
189
  //Ticket 11086 - Patch 121881 - DaltonM - Jan 2, 2019
190
  create vFeeLookUp transient;
191
  vFeeLookUp.mInitFromAccount(pAccount);
@@ -227,7 +240,9 @@ begin
227
  endforeach;
228
 
229
  elseif pAccount <> null and pAccount.allAdvanceStatementItems.size = 0 then
230
- foreach vBaseDeduce in pAccount.allFeeCodeDisburseDeducts where vBaseDeduce.mIsAdvanceDeduction(vLookup) do
 
 
231
  // #HTB-101 ThabanS 06May20 {122903} : added pLocale params
232
  vDecuct := vDecuct & vBaseDeduce.mGetDescription(myEnglishLocale) & CrLf;
233
  vDecusAmt := vDecusAmt & vBaseDeduce.mGetAmount.currencyFormat & CrLf;
186
 
187
  vXML.mAddElement('FeeBroker', 0.Decimal.currencyFormat);
188
 
189
+ // #HTB-1433 SaulL 13May22 {124396}: Add Appraisal fee(Client Pays) field
190
+ if pAccount.mGetFeeCodebyName(APPRAISAL_FEE_CLIENT_PAYS) <> null then
191
+ vXML.mAddElement('AppraisalFeeClientPays', pAccount.mGetFeeCodebyName(APPRAISAL_FEE_CLIENT_PAYS).mGetAmount.currencyFormat);
192
+ else
193
+ vXML.mAddElement('AppraisalFeeClientPays',0.Decimal.currencyFormat);
194
+ endif;
195
+ // #HTB-1433 SaulL 13May22 {124396}: Add Automated Valuation fee(Client Pays) field
196
+ if pAccount.mGetFeeCodebyName(AUTOMATED_VALUATION_FEE) <> null then
197
+ vXML.mAddElement('AutomatedValuationFee', pAccount.mGetFeeCodebyName(AUTOMATED_VALUATION_FEE).mGetAmount.currencyFormat);
198
+ else
199
+ vXML.mAddElement('AutomatedValuationFee', 0.Decimal.currencyFormat);
200
+ endif;
201
+ //End of HTB-1433
202
  //Ticket 11086 - Patch 121881 - DaltonM - Jan 2, 2019
203
  create vFeeLookUp transient;
204
  vFeeLookUp.mInitFromAccount(pAccount);
240
  endforeach;
241
 
242
  elseif pAccount <> null and pAccount.allAdvanceStatementItems.size = 0 then
243
+ // #HTB-1433 SaulL 09Aug22 {124369}: Exclude Appraisal Fee (Client Pays)
244
+ foreach vBaseDeduce in pAccount.allFeeCodeDisburseDeducts where vBaseDeduce.mIsAdvanceDeduction(vLookup) and
245
+ vBaseDeduce.FeeCodeDeductionOrDisburse.myFeeCode.aKeyName <> 'Appraisal Fee (Client Pays)' do
246
  // #HTB-101 ThabanS 06May20 {122903} : added pLocale params
247
  vDecuct := vDecuct & vBaseDeduce.mGetDescription(myEnglishLocale) & CrLf;
248
  vDecusAmt := vDecusAmt & vBaseDeduce.mGetAmount.currencyFormat & CrLf;
C://PATCH_CONTROL//{TO → FROM}/LMSReports_xml__CreateCOB_v1.txt RENAMED
@@ -206,7 +206,23 @@ begin
206
  else
207
  locale_currency(vXML,'FeeDischarge', 0.Decimal);
208
  endif;
209
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
210
  if pAccount.mGetFeeCodebyName(KN_FCT_FEE) <> null then
211
  vFeeFCT := pAccount.mGetFeeCodebyName(KN_FCT_FEE).mGetAmount;
212
  elseif pAccount.mGetFeeCodebyName(KN_FCT_PLATINUM_FEE) <> null then
@@ -267,7 +283,9 @@ begin
267
  endforeach;
268
 
269
  elseif pAccount <> null and pAccount.allAdvanceStatementItems.size = 0 then
270
- foreach vBaseDeduce in pAccount.allFeeCodeDisburseDeducts where vBaseDeduce.mIsAdvanceDeduction(vLookup) do
 
 
271
  // #HTB-101 ThabanS 06May20 {122903} : added pLocale params/vDecuctFR/vDecusAmtFR
272
  vDecuct := vDecuct & vBaseDeduce.mGetDescription(myEnglishLocale) & CrLf;
273
  vDecuctFR := vDecuctFR & vBaseDeduce.mGetDescription(myFrenchLocale) & CrLf;
206
  else
207
  locale_currency(vXML,'FeeDischarge', 0.Decimal);
208
  endif;
209
+ // #HTB-1433 SaulL 13May22 {124396}: Add Appraisal fee(Client Pays) field
210
+ if pAccount.mGetFeeCodebyName(APPRAISAL_FEE_CLIENT_PAYS) <> null then
211
+ vXML.mAddElement('AppraisalFeeClientPays', pAccount.mGetFeeCodebyName(APPRAISAL_FEE_CLIENT_PAYS).mGetAmount.currencyFormat);
212
+ locale_currency(vXML,'AppraisalFeeClientPays', pAccount.mGetFeeCodebyName(APPRAISAL_FEE_CLIENT_PAYS).mGetAmount);
213
+ else
214
+ vXML.mAddElement('AppraisalFeeClientPays',0.Decimal.currencyFormat);
215
+ locale_currency(vXML,'AppraisalFeeClientPays', 0.Decimal);
216
+ endif;
217
+ // #HTB-1433 SaulL 13May22 {124396}: Add Automated Valuation fee(Client Pays) field
218
+ if pAccount.mGetFeeCodebyName(AUTOMATED_VALUATION_FEE) <> null then
219
+ vXML.mAddElement('AutomatedValuationFee', pAccount.mGetFeeCodebyName(AUTOMATED_VALUATION_FEE).mGetAmount.currencyFormat);
220
+ locale_currency(vXML,'AutomatedValuationFee', pAccount.mGetFeeCodebyName(AUTOMATED_VALUATION_FEE).mGetAmount);
221
+ else
222
+ vXML.mAddElement('AutomatedValuationFee', 0.Decimal.currencyFormat);
223
+ locale_currency(vXML,'AutomatedValuationFee', 0.Decimal);
224
+ endif;
225
+ //End of HTB-1433
226
  if pAccount.mGetFeeCodebyName(KN_FCT_FEE) <> null then
227
  vFeeFCT := pAccount.mGetFeeCodebyName(KN_FCT_FEE).mGetAmount;
228
  elseif pAccount.mGetFeeCodebyName(KN_FCT_PLATINUM_FEE) <> null then
283
  endforeach;
284
 
285
  elseif pAccount <> null and pAccount.allAdvanceStatementItems.size = 0 then
286
+ // #HTB-1433 SaulL 09Aug22 {124369}: Exclude Appraisal Fee (Client Pays)
287
+ foreach vBaseDeduce in pAccount.allFeeCodeDisburseDeducts where vBaseDeduce.mIsAdvanceDeduction(vLookup)
288
+ and vBaseDeduce.FeeCodeDeductionOrDisburse.myFeeCode.aKeyName <> 'Appraisal Fee (Client Pays)' do
289
  // #HTB-101 ThabanS 06May20 {122903} : added pLocale params/vDecuctFR/vDecusAmtFR
290
  vDecuct := vDecuct & vBaseDeduce.mGetDescription(myEnglishLocale) & CrLf;
291
  vDecuctFR := vDecuctFR & vBaseDeduce.mGetDescription(myFrenchLocale) & CrLf;
C://PATCH_CONTROL//{TO → FROM}/MessageMorWeb_mProcess_ImportDeal.txt RENAMED
@@ -1800,12 +1800,14 @@ PAYOUT_METHOD Prior to Advance
1800
  foreach vAccountCreationClient in vAccountCreation.allAccountCreationClient
1801
  where (not vFoundRealEstate) do
1802
  foreach vAccountCreationClientReal in vAccountCreationClient.allAccountCreationRealEstate do
 
1803
  // this is probably it but ...
1804
  if vAccountCreationClientReal.myAddress <> null then
1805
  vAddress := vAccountCreationClientReal.myAddress.StreetAddress;
1806
  if vAddress.aCity.toLower.trimBlanks = vAddressXML.mGetAttributeValue('townOrCity').toLower.trimBlanks
1807
  and vAddress.aStreetName.toLower.trimBlanks = vAddressXML.mGetAttributeValue('streetName').toLower.trimBlanks
1808
- and vAddress.aStreetNumber = vAddressXML.mGetAttributeValue('houseNumber') then
 
1809
  // and vAddress.aPostalCode.toLower.trimBlanks = vAddressXML.mGetAttributeValue('postalCode').toLower.trimBlanks then
1810
  vFoundRealEstate := true;
1811
  break;
1800
  foreach vAccountCreationClient in vAccountCreation.allAccountCreationClient
1801
  where (not vFoundRealEstate) do
1802
  foreach vAccountCreationClientReal in vAccountCreationClient.allAccountCreationRealEstate do
1803
+ // #HTB-1559 NormanA 13 Oct22 {124732} : bringing in CWB-153; add a check for apartment unit number (Properties could be in the same condo)
1804
  // this is probably it but ...
1805
  if vAccountCreationClientReal.myAddress <> null then
1806
  vAddress := vAccountCreationClientReal.myAddress.StreetAddress;
1807
  if vAddress.aCity.toLower.trimBlanks = vAddressXML.mGetAttributeValue('townOrCity').toLower.trimBlanks
1808
  and vAddress.aStreetName.toLower.trimBlanks = vAddressXML.mGetAttributeValue('streetName').toLower.trimBlanks
1809
+ and vAddress.aStreetNumber = vAddressXML.mGetAttributeValue('houseNumber')
1810
+ and vAddress.aUnit = vAddressXML.mGetAttributeValue('apartmentOrUnitNumber') then
1811
  // and vAddress.aPostalCode.toLower.trimBlanks = vAddressXML.mGetAttributeValue('postalCode').toLower.trimBlanks then
1812
  vFoundRealEstate := true;
1813
  break;
C://PATCH_CONTROL//FROM/MessageProcessingAgent_mCheckLendeskMessages.txt ADDED
@@ -0,0 +1,20 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mCheckLendeskMessages();
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 27 July 2021
5
+ Created By: SpencerG
6
+ Method Name: mCheckLendeskMessages
7
+ Patch Number: 123739
8
+ Ticket: LMS-291
9
+ Purpose: Check if lendesk is selected as the origination service
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+
18
+ begin
19
+
20
+ end;
C://PATCH_CONTROL//{TO → FROM}/MessageProcessingAgent_mProcessMessage.txt RENAMED
@@ -1,4 +1,5 @@
1
  mProcessMessage(pMessage: Message) updating;
 
2
 
3
  /*
4
 
1
  mProcessMessage(pMessage: Message) updating;
2
+ //11188 - added as updating
3
 
4
  /*
5
 
C://PATCH_CONTROL//{TO → FROM}/MessageProcessor_mStartTimer.txt RENAMED
@@ -38,6 +38,11 @@ begin
38
  //beginTimer( 10000, Timer_Continuous, RUN_SCARLETT_MSG_CHECK) ;
39
  //endif;
40
 
 
 
 
 
 
41
  // #11475 MarkusJ 19Jun19 {122242} : Ping Equifax API for all Pending Manual Income Verifications
42
  if app.mGetINIFileSetting('LMSEnvironment','EquifaxIncomeURL',null).trimBlanks.length > 1 then
43
  beginTimer(30 * 60000, //min
38
  //beginTimer( 10000, Timer_Continuous, RUN_SCARLETT_MSG_CHECK) ;
39
  //endif;
40
 
41
+ // #LMS-291 SpencerG 27Jul21 {123739} : Ping Lendesk API for new deal
42
+ if app.mGetINIFileSetting('LMSEnvironment','LendeskURL',null).trimBlanks.length > 1 then
43
+ beginTimer( 10000, Timer_Continuous, RUN_LENDESK_MSG_CHECK) ;
44
+ endif;
45
+
46
  // #11475 MarkusJ 19Jun19 {122242} : Ping Equifax API for all Pending Manual Income Verifications
47
  if app.mGetINIFileSetting('LMSEnvironment','EquifaxIncomeURL',null).trimBlanks.length > 1 then
48
  beginTimer(30 * 60000, //min
C://PATCH_CONTROL//{TO → FROM}/MessageProcessor_timerEvent.txt RENAMED
@@ -52,6 +52,11 @@ begin
52
 
53
  //app.myMessageProcessingAgent.mCheckScarlettMessages;
54
 
 
 
 
 
 
55
  // #LMS-255 SpencerG 29Nov21 {124023} : Ping Value Connect API for any unfetched requests
56
  // #HTB-1423 SaulL 12Apr22 {124300}: Commment out Scarlett part as it's not applied for HTB
57
  //elseif eventTag = RUN_VALUECONNECT_MSG_CHECK then
52
 
53
  //app.myMessageProcessingAgent.mCheckScarlettMessages;
54
 
55
+ // #LMS-291 SpencerG 27Jul21 {123739} : Ping Lendesk API for loan in queue
56
+ elseif eventTag = RUN_LENDESK_MSG_CHECK then
57
+
58
+ app.myMessageProcessingAgent.mCheckLendeskMessages;
59
+
60
  // #LMS-255 SpencerG 29Nov21 {124023} : Ping Value Connect API for any unfetched requests
61
  // #HTB-1423 SaulL 12Apr22 {124300}: Commment out Scarlett part as it's not applied for HTB
62
  //elseif eventTag = RUN_VALUECONNECT_MSG_CHECK then
C://PATCH_CONTROL//TO/MessagingSchema_class_info.txt DELETED
@@ -1,1213 +0,0 @@
1
- MessagingSchema
2
- MAP:_usergui
3
-
4
-
5
- NAME:_persistentImpRefs
6
- LEN:12
7
-
8
-
9
-
10
- NAME:_transientImpRefs
11
- LEN:12
12
-
13
-
14
-
15
- NAME:__htmlAttributeOffsetDict
16
- LEN:12
17
-
18
-
19
-
20
- NAME:__inspectorObject
21
- LEN:12
22
-
23
-
24
-
25
- NAME:__jadeHttpConnection
26
- LEN:12
27
-
28
-
29
-
30
- NAME:__overridePatchNumber
31
- LEN:4
32
-
33
-
34
-
35
- NAME:__patchControlString
36
- LEN:-1
37
-
38
-
39
-
40
- NAME:__patchVersionDict
41
- LEN:12
42
-
43
-
44
-
45
- NAME:__reportWriterRef
46
- LEN:12
47
-
48
-
49
-
50
- NAME:__webSessions
51
- LEN:12
52
-
53
-
54
-
55
- NAME:_aboutFormName
56
- LEN:101
57
-
58
-
59
-
60
- NAME:_consoleMemRefs
61
- LEN:33
62
-
63
-
64
-
65
- NAME:_defaultLocaleId
66
- LEN:4
67
-
68
-
69
-
70
- NAME:_dynamicPropertyBag
71
- LEN:12
72
-
73
-
74
-
75
- NAME:_externalDatabases
76
- LEN:12
77
-
78
-
79
-
80
- NAME:_internetPipe
81
- LEN:12
82
-
83
-
84
-
85
- NAME:_internetPipeName
86
- LEN:-1
87
-
88
-
89
-
90
- NAME:_modifiedBy
91
- LEN:31
92
-
93
-
94
-
95
- NAME:_modifiedTimestamp
96
- LEN:8
97
-
98
-
99
-
100
- NAME:_numberOfPipes
101
- LEN:4
102
-
103
-
104
-
105
- NAME:_patchVersion
106
- LEN:4
107
-
108
-
109
-
110
- NAME:_propertyBag
111
- LEN:-1
112
-
113
-
114
-
115
- NAME:_restServicesOptions
116
- LEN:4
117
-
118
-
119
-
120
- NAME:_sourceParcel
121
- LEN:12
122
-
123
-
124
-
125
- NAME:_startupFormName
126
- LEN:101
127
-
128
-
129
-
130
- NAME:_systemVersion
131
- LEN:9
132
-
133
-
134
-
135
- NAME:_useXMLConfigFile
136
- LEN:1
137
-
138
-
139
-
140
- NAME:_useXMLDocumentParser
141
- LEN:1
142
-
143
-
144
-
145
- NAME:_webAppDirectory
146
- LEN:-1
147
-
148
-
149
-
150
- NAME:_webAppExtension
151
- LEN:12
152
-
153
-
154
-
155
- NAME:_webBaseURL
156
- LEN:-1
157
-
158
-
159
-
160
- NAME:_webConfigDynamicProperties
161
- LEN:12
162
-
163
-
164
-
165
- NAME:_webDelayBetweenApps
166
- LEN:4
167
-
168
-
169
-
170
- NAME:_webDisplayMessages
171
- LEN:1
172
-
173
-
174
-
175
- NAME:_webDisplayPreference
176
- LEN:1
177
-
178
-
179
-
180
- NAME:_webEnabled
181
- LEN:1
182
-
183
-
184
-
185
- NAME:_webEventClasses
186
- LEN:12
187
-
188
-
189
-
190
- NAME:_webFinalizeMethod
191
- LEN:12
192
-
193
-
194
-
195
- NAME:_webHomePage
196
- LEN:101
197
-
198
-
199
-
200
- NAME:_webInitializeMethod
201
- LEN:12
202
-
203
-
204
-
205
- NAME:_webIsSecure
206
- LEN:1
207
-
208
-
209
-
210
- NAME:_webLogFile
211
- LEN:12
212
-
213
-
214
-
215
- NAME:_webMachineName
216
- LEN:-1
217
-
218
-
219
-
220
- NAME:_webMaxHTMLSize
221
- LEN:4
222
-
223
-
224
-
225
- NAME:_webMessage
226
- LEN:12
227
-
228
-
229
-
230
- NAME:_webMethodExecutionPrefix
231
- LEN:31
232
-
233
-
234
-
235
- NAME:_webQueue
236
- LEN:12
237
-
238
-
239
-
240
- NAME:_webServiceClasses
241
- LEN:-1
242
-
243
-
244
-
245
- NAME:_webSession
246
- LEN:12
247
-
248
-
249
-
250
- NAME:_webSessionManager
251
- LEN:12
252
-
253
-
254
-
255
- NAME:_webSessionTimeout
256
- LEN:4
257
-
258
-
259
-
260
- NAME:_webShowContent
261
- LEN:1
262
-
263
-
264
-
265
- NAME:_webShowModal
266
- LEN:1
267
-
268
-
269
-
270
- NAME:_webStartupForm
271
- LEN:12
272
-
273
-
274
-
275
- NAME:_webStartupFormName
276
- LEN:101
277
-
278
-
279
-
280
- NAME:_webStatusLineDisplay
281
- LEN:-1
282
-
283
-
284
-
285
- NAME:_webUseHTML32
286
- LEN:1
287
-
288
-
289
-
290
- NAME:_webUseSessionHandling
291
- LEN:1
292
-
293
-
294
-
295
- NAME:_webVirtualDirectory
296
- LEN:-1
297
-
298
-
299
-
300
- NAME:_webWaitForReply
301
- LEN:1
302
-
303
-
304
-
305
- NAME:aboutForm
306
- LEN:12
307
-
308
-
309
-
310
- NAME:appVersion
311
- LEN:31
312
-
313
-
314
-
315
- NAME:applicationType
316
- LEN:1
317
-
318
-
319
-
320
- NAME:controlSpacing
321
- LEN:4
322
-
323
-
324
-
325
- NAME:currentLocale
326
- LEN:12
327
-
328
-
329
-
330
- NAME:currentLocaleInfo
331
- LEN:12
332
-
333
-
334
-
335
- NAME:defaultApp
336
- LEN:1
337
-
338
-
339
-
340
- NAME:defaultMdi
341
- LEN:1
342
-
343
-
344
-
345
- NAME:exportedPackages
346
- LEN:12
347
-
348
-
349
-
350
- NAME:finalizeMethod
351
- LEN:12
352
-
353
-
354
-
355
- NAME:fontBold
356
- LEN:1
357
-
358
-
359
-
360
- NAME:fontName
361
- LEN:101
362
-
363
-
364
-
365
- NAME:fontSize
366
- LEN:8
367
-
368
-
369
-
370
- NAME:formMargin
371
- LEN:4
372
-
373
-
374
-
375
- NAME:heightSingleLineControl
376
- LEN:4
377
-
378
-
379
-
380
- NAME:helpFile
381
- LEN:-1
382
-
383
-
384
-
385
- NAME:icon
386
- LEN:-1
387
-
388
-
389
-
390
- NAME:initializeMethod
391
- LEN:12
392
-
393
-
394
-
395
- NAME:jadeWebServiceManager
396
- LEN:12
397
-
398
-
399
-
400
- NAME:mdiCaption
401
- LEN:-1
402
-
403
-
404
-
405
- NAME:mdiFrame
406
- LEN:12
407
-
408
-
409
-
410
- NAME:mousePointer
411
- LEN:4
412
-
413
-
414
-
415
- NAME:name
416
- LEN:101
417
-
418
-
419
-
420
- NAME:printer
421
- LEN:12
422
-
423
-
424
-
425
- NAME:schema
426
- LEN:12
427
-
428
-
429
-
430
- NAME:showBubbleHelp
431
- LEN:1
432
-
433
-
434
-
435
- NAME:startupForm
436
- LEN:12
437
-
438
-
439
-
440
- NAME:threeDControls
441
- LEN:12
442
-
443
-
444
-
445
- NAME:useBorderStyleOnly
446
- LEN:1
447
-
448
-
449
-
450
- NAME:userSecurityLevel
451
- LEN:4
452
-
453
-
454
-
455
- NAME:uuid
456
- LEN:16
457
-
458
-
459
-
460
- NAME:webMinimumResponseTime
461
- LEN:4
462
-
463
-
464
-
465
- NAME:_monitorException
466
- LEN:4
467
-
468
-
469
-
470
- NAME:_systemBasic
471
- LEN:1
472
-
473
-
474
-
475
- NAME:cnAppAlias
476
- LEN:101
477
-
478
- Used by JSA applications but as from 12Aug08 also by JADE Master Terminal.
479
-
480
-
481
- NAME:cnAppServerIsOnServer
482
- LEN:1
483
-
484
-
485
-
486
- NAME:cnApplicationRootDir
487
- LEN:129
488
-
489
-
490
-
491
- NAME:cnApplicationType
492
- LEN:1
493
-
494
-
495
-
496
- NAME:cnCheckShareLocks
497
- LEN:1
498
-
499
-
500
-
501
- NAME:cnCurrentLocaleDefaultCountryCode
502
- LEN:4
503
-
504
-
505
-
506
- NAME:cnDatabaseSubrole
507
- LEN:4
508
-
509
-
510
-
511
- NAME:cnDbPath
512
- LEN:129
513
-
514
- This attribute is used only by VB apps that use CardSchema. If you assign a value
515
- to this attribute, app::dbPath will return the value of cnDbPath instead of the
516
- JADE app.dbPath.
517
-
518
- NAME:cnDistributionNode
519
- LEN:41
520
-
521
-
522
-
523
- NAME:cnDistributionProcess
524
- LEN:41
525
-
526
-
527
-
528
- NAME:cnExceptionHandlerType
529
- LEN:4
530
-
531
-
532
-
533
- NAME:cnFileRetryCount
534
- LEN:4
535
-
536
-
537
-
538
- NAME:cnForeignApp
539
- LEN:1
540
-
541
- Indicates that this is a VB app i.e. not a JADE.EXE
542
-
543
- NAME:cnIsForegroundClient
544
- LEN:1
545
-
546
-
547
- If the subschema developer has set this to true (only do this for user-attended GUI clients)
548
- then CardSchema's global lock exception handler will call cnShowLockErrorMessage if a
549
- lock cannot be acquired.
550
-
551
- The developer can reimplement this message if desired.
552
-
553
- NAME:cnIsServerApp
554
- LEN:1
555
-
556
-
557
-
558
- NAME:cnLockCheckInterval
559
- LEN:4
560
-
561
-
562
-
563
- NAME:cnMaxLockTimeBeforeAlarm
564
- LEN:4
565
-
566
-
567
-
568
- NAME:cnMyBackupLog
569
- LEN:12
570
-
571
-
572
-
573
- NAME:cnMyCompactLog
574
- LEN:12
575
-
576
-
577
-
578
- NAME:cnMyLaunchSentinelFile
579
- LEN:12
580
-
581
-
582
-
583
- NAME:cnOSArchitecture
584
- LEN:4
585
-
586
- Architecture of the fat client or server node.
587
-
588
- For thinclient architecture, refer to cnThinClientArchitecture
589
-
590
- NAME:cnOSPlatform
591
- LEN:4
592
-
593
- Platform of the fat client or server node.
594
-
595
- For thinclient platform, refer to cnThinClientPlatform
596
-
597
- NAME:cnOSVersion
598
- LEN:31
599
-
600
-
601
-
602
- NAME:cnProcessesWithNoLockChecks
603
- LEN:12
604
-
605
-
606
- Manually maintained collection of processes for which no lock check alarms are
607
- to be issued.
608
-
609
- NAME:cnServerGlobalExHandlerDone
610
- LEN:1
611
-
612
-
613
-
614
- NAME:cnStackDumpFileName
615
- LEN:256
616
-
617
-
618
-
619
- NAME:cnSystemType
620
- LEN:4
621
-
622
-
623
-
624
- NAME:cnThinClientOSArchitecture
625
- LEN:4
626
-
627
-
628
-
629
- NAME:cnThinClientOSPlatform
630
- LEN:4
631
-
632
-
633
-
634
- NAME:cnThinClientOSVersion
635
- LEN:31
636
-
637
-
638
-
639
- NAME:cnUseLaunchSentinelFile
640
- LEN:1
641
-
642
-
643
-
644
- NAME:cnUsedActivateMethod
645
- LEN:1
646
-
647
-
648
-
649
- NAME:myCnBackup
650
- LEN:12
651
-
652
-
653
-
654
- NAME:myCnClusterInfo
655
- LEN:12
656
-
657
-
658
-
659
- NAME:myCnCntrl
660
- LEN:12
661
-
662
-
663
-
664
- NAME:myCnDba
665
- LEN:12
666
-
667
-
668
- Reference to process transient used in KCOnLineBackup.
669
-
670
- NAME:myCnKarmaCntrl
671
- LEN:12
672
-
673
-
674
-
675
- NAME:myCnLdapSyntax
676
- LEN:12
677
-
678
-
679
-
680
- NAME:myCnLockCheck
681
- LEN:12
682
-
683
-
684
-
685
- NAME:myCnLog
686
- LEN:12
687
-
688
-
689
-
690
- NAME:myCnManagerClass
691
- LEN:12
692
-
693
-
694
-
695
- NAME:myCnRoot
696
- LEN:12
697
-
698
-
699
-
700
- NAME:myCnSDSDbAdmin
701
- LEN:12
702
-
703
-
704
-
705
- NAME:myCnTranLogFile
706
- LEN:12
707
-
708
-
709
-
710
- NAME:myCnTransactionStack
711
- LEN:12
712
-
713
-
714
-
715
- NAME:myDba
716
- LEN:12
717
-
718
-
719
-
720
- NAME:myJadeTestCaseListener
721
- LEN:12
722
-
723
-
724
-
725
- NAME:myTransientCnIpAddress
726
- LEN:12
727
-
728
-
729
-
730
- NAME:aAppIsUnattended
731
- LEN:1
732
-
733
-
734
-
735
- NAME:aAscPicture
736
- LEN:-1
737
-
738
-
739
-
740
- NAME:aAscPicture1
741
- LEN:-1
742
-
743
-
744
-
745
- NAME:aAscPicture2
746
- LEN:-1
747
-
748
-
749
-
750
- NAME:aAscPicture3
751
- LEN:-1
752
-
753
-
754
-
755
- NAME:aCoreServer
756
- LEN:1
757
-
758
-
759
-
760
- NAME:aDebugMode
761
- LEN:1
762
-
763
-
764
-
765
- NAME:aDescPicture
766
- LEN:-1
767
-
768
-
769
-
770
- NAME:aDescPicture1
771
- LEN:-1
772
-
773
-
774
-
775
- NAME:aDescPicture2
776
- LEN:-1
777
-
778
-
779
-
780
- NAME:aDescPicture3
781
- LEN:-1
782
-
783
-
784
-
785
- NAME:aEnvironmentID
786
- LEN:-1
787
-
788
-
789
- Use this to display what Environment the application is in.
790
-
791
- NAME:aIsJobProcess
792
- LEN:1
793
-
794
- If true, this app is in job processing mode.
795
-
796
- NAME:aLocaleName
797
- LEN:31
798
-
799
-
800
-
801
- NAME:aReadOnlyColor
802
- LEN:4
803
-
804
-
805
-
806
- NAME:aReportLinePrefix
807
- LEN:101
808
-
809
-
810
-
811
- NAME:aRestoreMode
812
- LEN:1
813
-
814
-
815
-
816
- NAME:aRunJobName
817
- LEN:-1
818
-
819
-
820
-
821
- NAME:aSystemDateControl
822
- LEN:31
823
-
824
-
825
-
826
- NAME:aTempString
827
- LEN:-1
828
-
829
-
830
-
831
- NAME:aTestServer
832
- LEN:1
833
-
834
-
835
-
836
- NAME:aTransactionJobLevel
837
- LEN:4
838
-
839
-
840
-
841
- NAME:aTrxLevel
842
- LEN:4
843
-
844
-
845
-
846
- NAME:aUserLoggedAs
847
- LEN:31
848
-
849
-
850
-
851
- NAME:allCommitPrimary
852
- LEN:12
853
-
854
-
855
-
856
- NAME:allCommitSecondary
857
- LEN:12
858
-
859
-
860
-
861
- NAME:allEmailSent
862
- LEN:12
863
-
864
-
865
-
866
- NAME:allTransientData
867
- LEN:12
868
-
869
-
870
-
871
- NAME:appStartTime
872
- LEN:8
873
-
874
-
875
-
876
- NAME:myAuditManager
877
- LEN:12
878
-
879
-
880
-
881
- NAME:myControlFile
882
- LEN:12
883
-
884
-
885
-
886
- NAME:myCoreAgent
887
- LEN:12
888
-
889
-
890
-
891
- NAME:myCoreJobRoot
892
- LEN:12
893
-
894
-
895
-
896
- NAME:myCurrencyFormat
897
- LEN:12
898
-
899
-
900
-
901
- NAME:myCurrentLocale
902
- LEN:12
903
-
904
-
905
-
906
- NAME:myHolidayControl
907
- LEN:12
908
-
909
-
910
-
911
- NAME:myIntegerFormat
912
- LEN:12
913
-
914
-
915
-
916
- NAME:myJobHelper
917
- LEN:12
918
-
919
-
920
-
921
- NAME:myJobManager
922
- LEN:12
923
-
924
-
925
-
926
- NAME:myJobProcessor
927
- LEN:12
928
-
929
-
930
-
931
- NAME:myJobWorker
932
- LEN:12
933
-
934
- Created: 12 November 2018 by Gaurav Chaudhari
935
- Patch Number: 121770
936
-
937
- LogManager for the current schema.
938
-
939
- NAME:myMainFormActive
940
- LEN:12
941
-
942
-
943
-
944
- NAME:myMessageProcessingAgent
945
- LEN:12
946
-
947
-
948
-
949
- NAME:myMessageProcessor
950
- LEN:12
951
-
952
-
953
-
954
- NAME:myMessagingHelper
955
- LEN:12
956
-
957
-
958
-
959
- NAME:myMessagingObject
960
- LEN:12
961
-
962
-
963
-
964
- NAME:myMessagingRoot
965
- LEN:12
966
-
967
-
968
-
969
- NAME:myMessagingWorker
970
- LEN:12
971
-
972
-
973
-
974
- NAME:myOperationControl
975
- LEN:12
976
-
977
-
978
-
979
- NAME:myRateFormats
980
- LEN:12
981
-
982
-
983
-
984
- NAME:myReportFile
985
- LEN:12
986
-
987
-
988
-
989
- NAME:vCheckHoliday
990
- LEN:4
991
-
992
-
993
-
994
- NAME:aApplicationEnabled
995
- LEN:1
996
-
997
-
998
-
999
- NAME:aErrorCode
1000
- LEN:4
1001
-
1002
-
1003
-
1004
- NAME:aFormSecurityLevel
1005
- LEN:4
1006
-
1007
-
1008
-
1009
- NAME:aLenderName
1010
- LEN:256
1011
-
1012
-
1013
-
1014
- NAME:aSupressAudit
1015
- LEN:1
1016
-
1017
-
1018
-
1019
- NAME:aTransactionServiceLevel
1020
- LEN:4
1021
-
1022
-
1023
-
1024
- NAME:aTransactionTrxLevel
1025
- LEN:4
1026
-
1027
-
1028
-
1029
- NAME:aTransactionWorkflowLevel
1030
- LEN:4
1031
-
1032
-
1033
-
1034
- NAME:allTxns
1035
- LEN:12
1036
-
1037
-
1038
-
1039
- NAME:myAppOverride
1040
- LEN:12
1041
-
1042
-
1043
-
1044
- NAME:myCA
1045
- LEN:12
1046
-
1047
-
1048
-
1049
- NAME:myConditionServiceEngine
1050
- LEN:12
1051
-
1052
-
1053
-
1054
- NAME:myDocumentEngine
1055
- LEN:12
1056
-
1057
-
1058
-
1059
- NAME:myDocumentMerge
1060
- LEN:12
1061
-
1062
-
1063
-
1064
- NAME:myExceptionAgent
1065
- LEN:12
1066
-
1067
-
1068
-
1069
- NAME:myExceptionCA
1070
- LEN:12
1071
-
1072
-
1073
-
1074
- NAME:myFinancialTxnAgent
1075
- LEN:12
1076
-
1077
-
1078
-
1079
- NAME:myFormHelper
1080
- LEN:12
1081
-
1082
-
1083
-
1084
- NAME:myGeneralTxnAgent
1085
- LEN:12
1086
-
1087
-
1088
-
1089
- NAME:myInstitution
1090
- LEN:12
1091
-
1092
-
1093
-
1094
- NAME:myJadeReportEngine
1095
- LEN:12
1096
-
1097
-
1098
-
1099
- NAME:myLMSRoot
1100
- LEN:12
1101
-
1102
-
1103
-
1104
- NAME:myLender
1105
- LEN:12
1106
-
1107
-
1108
-
1109
- NAME:myLogicProcessor
1110
- LEN:12
1111
-
1112
-
1113
-
1114
- NAME:myNextNumberAgent
1115
- LEN:12
1116
-
1117
-
1118
-
1119
- NAME:myNextNumberGenerator
1120
- LEN:12
1121
-
1122
-
1123
-
1124
- NAME:myOverrideUser
1125
- LEN:12
1126
-
1127
-
1128
-
1129
- NAME:myPoolingAgent
1130
- LEN:12
1131
-
1132
-
1133
-
1134
- NAME:myPoolingEngine
1135
- LEN:12
1136
-
1137
-
1138
-
1139
- NAME:myPoolingRoot
1140
- LEN:12
1141
-
1142
-
1143
-
1144
- NAME:myRPSMonitor
1145
- LEN:12
1146
-
1147
-
1148
-
1149
- NAME:myRefObj
1150
- LEN:12
1151
-
1152
-
1153
-
1154
- NAME:mySearchAgent
1155
- LEN:12
1156
-
1157
-
1158
-
1159
- NAME:mySelectionEngine
1160
- LEN:12
1161
-
1162
-
1163
-
1164
- NAME:mySelectionRoot
1165
- LEN:12
1166
-
1167
-
1168
-
1169
- NAME:mySelectionTA
1170
- LEN:12
1171
-
1172
-
1173
-
1174
- NAME:myTA
1175
- LEN:12
1176
-
1177
-
1178
-
1179
- NAME:myUser
1180
- LEN:12
1181
-
1182
-
1183
-
1184
- NAME:myVA
1185
- LEN:12
1186
-
1187
-
1188
-
1189
- NAME:myVVVRoot
1190
- LEN:12
1191
-
1192
-
1193
-
1194
- NAME:myWflEngine
1195
- LEN:12
1196
-
1197
-
1198
-
1199
- NAME:myWflRoot
1200
- LEN:12
1201
-
1202
-
1203
-
1204
- NAME:myWflTA
1205
- LEN:12
1206
-
1207
-
1208
-
1209
- NAME:myRegressionHelper
1210
- LEN:12
1211
-
1212
-
1213
-
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mAppNameFriendly.txt DELETED
@@ -1,22 +0,0 @@
1
- mAppNameFriendly(): String;
2
-
3
- //
4
- // Created : 10 September 2018 by ThabanS
5
- //
6
- // Purpose :
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
-
16
- begin
17
- return $MessagingManager;
18
-
19
-
20
- epilog
21
-
22
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mFinalizeMessagingWorker.txt DELETED
@@ -1,28 +0,0 @@
1
- mFinalizeMessagingWorker()updating;
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- if global.isValidObject(myMessagingWorker) then
16
- beginTransaction;
17
- myMessagingWorker.mSetStatus(WORKER_STOPPED);
18
- commitTransaction;
19
- endif;
20
-
21
- if global.isValidObject(myMessagingHelper) then
22
- myMessagingHelper.mWriteToLog('*** WORKER STOPPED ***');
23
- delete myMessagingHelper;
24
- endif;
25
-
26
- epilog
27
-
28
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mFinalizeMsgMgr.txt DELETED
@@ -1,19 +0,0 @@
1
- mFinalizeMsgMgr();
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
-
16
-
17
- epilog
18
-
19
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mFinalizeMsgProcessor.txt DELETED
@@ -1,22 +0,0 @@
1
- mFinalizeMsgProcessor();
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
- vWorker : MessagingWorker;
14
-
15
- begin
16
- foreach vWorker in app.myMessagingRoot.allWorkersByCode do
17
- vWorker.causeEvent(TERMINATE_WORKER, true, 0);
18
- endforeach;
19
-
20
- epilog
21
-
22
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mGetErrorFiles.txt DELETED
@@ -1,31 +0,0 @@
1
- mGetErrorFiles():CnStringArrayv2 serverExecution;
2
-
3
- //
4
- // Created : 07 December 2018 by ThabanS
5
- //
6
- // Purpose : //11170 - ThabanS - 14Dec2018
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
- vAns : CnStringArrayv2;
16
- vFile : FileFolder;
17
- vNode : FileNode;
18
-
19
- begin
20
-
21
- create vFile transient;
22
- create vAns transient;
23
- vFile.fileName := app.mGetMsgProcessorErrorFilesDir;
24
- foreach vNode in vFile.files where vNode.cnGetSimpleFileName.mGetFileExtension = 'xml' do
25
- vAns.add(vNode.cnGetSimpleFileName);
26
- endforeach;
27
-
28
- return vAns;
29
- epilog
30
- delete vFile;
31
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mGetLogonFormClass.txt DELETED
@@ -1,20 +0,0 @@
1
- mGetLogonFormClass(): Class;
2
- /*
3
-
4
- Created : 16 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- return FormLogonMessaging;
16
-
17
-
18
- epilog
19
-
20
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mInitializeMsgMgr.txt DELETED
@@ -1,21 +0,0 @@
1
- mInitializeMsgMgr()updating;
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- initialize;
16
- mSetReferences;
17
-
18
-
19
- epilog
20
-
21
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mInitializeMsgProcessor.txt DELETED
@@ -1,44 +0,0 @@
1
- mInitializeMsgProcessor() updating;
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
- vNode : Node;
14
- vProcess : Process;
15
- vCnCntrl : CnCntrl;
16
-
17
- begin
18
- while system.getDatabaseRole = SDS_RoleSecondary do
19
- process.sleep(60*5*1000);
20
- write 'process is sds. cant start worker';
21
- endwhile;
22
-
23
- create vCnCntrl transient;
24
- // Start by making sure we cannot start this thing more than once.
25
- foreach vNode in system.nodes do
26
- foreach vProcess in vNode.processes do
27
- if vProcess.persistentApp.name = app.name and vProcess <> process then
28
- vCnCntrl.cnWriteLog(0, '****** FAILURE TO START JOB PROCESSOR ******', null);
29
- vCnCntrl.cnWriteLog(0, vProcess.persistentApp.name & '::' & app.name, null);
30
- vCnCntrl.cnWriteLog(0, vProcess.getOidString & '::' & process.getOidString, null);
31
- terminate;
32
- endif;
33
- endforeach;
34
- endforeach;
35
- app.initialize;
36
- mSetReferences;
37
-
38
- create myMessageProcessor transient;
39
- create myMessageProcessingAgent as ServicingMsgProcessingAgent transient;
40
-
41
- epilog
42
- delete vCnCntrl;
43
-
44
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mSetReferences.txt DELETED
@@ -1,51 +0,0 @@
1
- mSetReferences()updating;
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
-
16
- create myCoreAgent as CoreAgentLMS transient;
17
-
18
- myMessagingRoot := MessagingRoot.firstInstance;
19
- if myMessagingRoot = null then
20
- myCoreAgent.mTrxCreateMessagingRoot(myMessagingRoot);
21
- endif;
22
-
23
- myLMSRoot := LMSRoot.firstInstance;
24
- myInstitution := Institution.firstInstance;
25
-
26
- create myGeneralTxnAgent transient;
27
-
28
- create mySearchAgent transient;
29
-
30
- create myCA transient;
31
-
32
- create myFinancialTxnAgent transient;
33
-
34
- create myPoolingAgent transient;
35
- myPoolingRoot := PoolingRoot.firstInstance;
36
-
37
- // #HTB-36 ThabanS 02Jun20 {122943} : fixes issue where always set user to system user when accessing messagning GUI
38
- if app.myUser = null then
39
- app.myUser := myInstitution.mySystemUser;
40
- endif;
41
-
42
- /*dgc.bug899 09Jun2011
43
- create myHolidayControl transient;
44
- mLoadHolidayDatesByCountry;
45
- */
46
-
47
-
48
-
49
- epilog
50
-
51
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mStartWorking.txt DELETED
@@ -1,73 +0,0 @@
1
- mStartWorking(pWorker : MessagingWorker io)updating;
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
- constants
12
-
13
- ONE_SECOND = 10000;
14
- TWO_SECONDS = 20000;
15
- FIVE_SECONDS = 50000;
16
-
17
- vars
18
- vDefaultLocale : Locale;
19
- vHolidayControl : HolidayControl;
20
- begin
21
- vDefaultLocale := app.mGetDefaultLocale(currentLocale.name);
22
- setCurrentLocale(vDefaultLocale);
23
-
24
- cnActivateKarmaControl(Cn_Fat_Client, null, null);
25
-
26
- on Exception do global.mMessagingWorkerExHandler(exception) global;
27
- // Clear the error code
28
- aErrorCode := 0;
29
- /*
30
- myLMSRoot := LMSRoot.firstInstance;
31
- myInstitution := Institution.firstInstance;
32
- myPoolingRoot := PoolingRoot.firstInstance;
33
-
34
- create myFinancialTxnAgent transient;
35
- create myGeneralTxnAgent transient;
36
- create myCA transient;
37
- create myTA transient;
38
- create myPoolingEngine transient;
39
- create myPoolingAgent transient;
40
- create myWflTA transient;
41
-
42
- create vHolidayControl transient;
43
- // mLoadHolidayDatesByCountry;
44
- myHolidayControl := vHolidayControl;
45
- mLoadHolidayCountries;
46
-
47
- initializeMonitor;
48
-
49
- aEnvironmentID := mGetINIFileSetting( 'Environment', 'EnvironmentName', null);
50
- */
51
-
52
- app.initialize;
53
-
54
- beginNotification(pWorker, TERMINATE_WORKER, 0, 0);
55
- myMessagingWorker := pWorker;
56
- beginTransaction;
57
- process.userInfo := myMessagingWorker.aName;
58
- commitTransaction;
59
-
60
- create myMessageProcessingAgent as ServicingMsgProcessingAgent transient;
61
-
62
- mSetReferences;
63
-
64
- create myMessagingHelper transient;
65
- myMessagingHelper.mSetLogFile(myMessagingWorker.aName);
66
- myMessagingHelper.mWriteToLog('*** WORKER STARTED ***');
67
-
68
- myMessagingWorker.beginTimer(TWO_SECONDS, Timer_OneShot, 0);
69
-
70
-
71
- epilog
72
-
73
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_mTranslatableName.txt DELETED
@@ -1,22 +0,0 @@
1
- mTranslatableName(): String;
2
-
3
- //
4
- // Created : 05 June 2015 by ThabanS
5
- //
6
- // Purpose :
7
- //
8
- // Notes :
9
- //
10
- // Date Who Bug# Description
11
- // ------- --- ----- ------------------------------------------------------------------------
12
- //
13
-
14
- vars
15
-
16
- begin
17
- return $MessagingManager;
18
-
19
-
20
- epilog
21
-
22
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//TO/MessagingSchema_userNotification.txt DELETED
@@ -1,26 +0,0 @@
1
- userNotification(eventType: Integer; theObject: Object; userTag: Integer; userInfo: Any) updating;
2
- /*
3
-
4
- Created : 12 March 2010 by JasonD
5
-
6
- Purpose :
7
-
8
- Notes :
9
-
10
- */
11
-
12
- vars
13
-
14
- begin
15
- if eventType = TERMINATE_WORKER then
16
- beginTransaction;
17
- myMessagingWorker.mSetStatus(WORKER_STOPPED);
18
- delete myMessagingWorker.myMessage;
19
- commitTransaction;
20
- terminate;
21
- endif;
22
-
23
-
24
- epilog
25
-
26
- end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
C://PATCH_CONTROL//FROM/OperationControl_mToggleLendesk.txt ADDED
@@ -0,0 +1,41 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ mToggleLendesk(): Boolean serverExecution;
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 27 July 2021
5
+ Created By: SpencerG
6
+ Method Name: mToggleLendesk
7
+ Patch Number: 123739
8
+ Ticket: LMS-291
9
+ Purpose: Add toggle control for Lendesk DOS system
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+ vFile: File;
18
+ vPath : String;
19
+ begin
20
+
21
+ vPath := app.getTransientDbPath;
22
+ if vPath = null then
23
+ vPath := app.mGetFailSafePath;
24
+ else
25
+ vPath := vPath & '../lendesk.flag';
26
+ endif;
27
+
28
+ create vFile transient;
29
+ vFile.fileName := vPath;
30
+ if vFile.isAvailable then
31
+ vFile.purge;
32
+ return false;
33
+ else
34
+ vFile.writeString('enabled');
35
+ vFile.close;
36
+ return true;
37
+ endif;
38
+
39
+ epilog
40
+ delete vFile;
41
+ end;
C://PATCH_CONTROL//{TO → FROM}/RegressionAgent_init_Core2.txt RENAMED
@@ -494,8 +494,8 @@ Whole Loan|true|false|false|false|false|false|false|true|false|Cash Back,Collect
494
  vInvestorTypeBucketDefinitionLinks,
495
  vVal[8].Boolean,
496
  vVal[7].Boolean, null, null, null, null, false,
497
- false //// #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
498
- );
499
  // #11785 DonC 28May19 {122233} : DEV CTC remove to compile
500
  // ,null,null);
501
  //endif;
494
  vInvestorTypeBucketDefinitionLinks,
495
  vVal[8].Boolean,
496
  vVal[7].Boolean, null, null, null, null, false,
497
+ false, //// #HTB-1315 ThabanS 14Feb22 {124196} : added chkUseInvestorBankFund
498
+ null);
499
  // #11785 DonC 28May19 {122233} : DEV CTC remove to compile
500
  // ,null,null);
501
  //endif;
C://PATCH_CONTROL//{TO → FROM}/RegressionScript_script_create_FeeCode.txt RENAMED
@@ -77,6 +77,7 @@ begin
77
  // accordingly to reflect this, added new params flexibility according to above.
78
  // Added JSON based params.
79
  // #HTB-1355 MarkusJ 12Apr22 {124293} : added FeeCodeInvestorTypeLinks -> null here
 
80
  app.myGeneralTxnAgent.trxUpdateFeeCode(vFeeCode,
81
  vLocaleDict,
82
  pName,
@@ -111,7 +112,8 @@ begin
111
  pDepositTxn,
112
  app.mGetTerminology(TT_FEE_MULTIPLY_TERM, vMultiplyTerm), // Multiply Term param.
113
  pJSON.mJSONGet(JSON_FeeCode_FullyAmortizeOnSale).Boolean,
114
- null);
 
115
 
116
  return vFeeCode;
117
 
77
  // accordingly to reflect this, added new params flexibility according to above.
78
  // Added JSON based params.
79
  // #HTB-1355 MarkusJ 12Apr22 {124293} : added FeeCodeInvestorTypeLinks -> null here
80
+ //#HTB-1433 SaulL 04Nov22 {124813}: Adding a new property, -> true here
81
  app.myGeneralTxnAgent.trxUpdateFeeCode(vFeeCode,
82
  vLocaleDict,
83
  pName,
112
  pDepositTxn,
113
  app.mGetTerminology(TT_FEE_MULTIPLY_TERM, vMultiplyTerm), // Multiply Term param.
114
  pJSON.mJSONGet(JSON_FeeCode_FullyAmortizeOnSale).Boolean,
115
+ null,
116
+ true);
117
 
118
  return vFeeCode;
119
 
C://PATCH_CONTROL//{TO → FROM}/SelectionCondition_mEvaluateObject.txt RENAMED
@@ -37,6 +37,7 @@ app.mStartAudit(self);
37
  endif;
38
 
39
  // Get the property of the attribute.
 
40
  vAttrValue := vObj.getPropertyValue( myExposedAttribute.aAttributeName).String;
41
 
42
  // Do the comparison.
37
  endif;
38
 
39
  // Get the property of the attribute.
40
+ vReportMsg := myExposedAttribute.aAttributeName;
41
  vAttrValue := vObj.getPropertyValue( myExposedAttribute.aAttributeName).String;
42
 
43
  // Do the comparison.
C://PATCH_CONTROL//{TO → FROM}/ServicingModelSchema_mBuildInfo.txt RENAMED
@@ -22,8 +22,8 @@ begin
22
  pReleaseName := app.mGetSystemName;
23
 
24
  // Update Date for each code release, keep synchronized with QA (same or higher)
25
- pReleaseDate := '27 October 2022'.Date;
26
- pBuild := '3.HTB.17.16';
27
 
28
  epilog
29
 
22
  pReleaseName := app.mGetSystemName;
23
 
24
  // Update Date for each code release, keep synchronized with QA (same or higher)
25
+ pReleaseDate := '08 November 2022'.Date;
26
+ pBuild := '3.HTB.18.6';
27
 
28
  epilog
29
 
C://PATCH_CONTROL//{TO → FROM}/SystemEventEngine_mProcessAdvance.txt RENAMED
@@ -254,7 +254,9 @@ begin
254
  //mAbortServiceTransaction;
255
 
256
  // 6932
257
- foreach vBaseDeduction in pAdvanceEvent.myAdvanceScheduleItem.allBaseFundingDeductions where vBaseDeduction.isKindOf(FeeCodeDeductionOrDisburse) do
 
 
258
  vFeeCodeDeductionOrDisburse := vBaseDeduction.FeeCodeDeductionOrDisburse;
259
  vFeeCodeDeductionOrDisburse.mPostFee(vLookupDetails, vFundTxn , pAdvanceEvent);
260
  endforeach;
254
  //mAbortServiceTransaction;
255
 
256
  // 6932
257
+ // #HTB-1433 MarkusJ 14Nov22 {124396} : Only Post Fee if Allowed on Advance Statement (not aNotIncludedInAdvStm)
258
+ foreach vBaseDeduction in pAdvanceEvent.myAdvanceScheduleItem.allBaseFundingDeductions where vBaseDeduction.isKindOf(FeeCodeDeductionOrDisburse)
259
+ and (vBaseDeduction.FeeCodeDeductionOrDisburse.myFeeCode <> null and not vBaseDeduction.FeeCodeDeductionOrDisburse.myFeeCode.mGetANotIncludedInAdvStm) do
260
  vFeeCodeDeductionOrDisburse := vBaseDeduction.FeeCodeDeductionOrDisburse;
261
  vFeeCodeDeductionOrDisburse.mPostFee(vLookupDetails, vFundTxn , pAdvanceEvent);
262
  endforeach;
C://PATCH_CONTROL//{TO → FROM}/UnderwritingData_class_info.txt RENAMED
@@ -295,17 +295,32 @@ LEN:1
295
  NAME:aPreAppApplicationDate
296
  LEN:8
297
 
298
-
 
 
 
 
 
299
 
300
  NAME:aPreAppCommitmentDate
301
  LEN:8
302
 
303
-
 
 
 
 
 
304
 
305
  NAME:aPreAppCommitmentExpirtyDate
306
  LEN:8
307
 
308
-
 
 
 
 
 
309
 
310
  NAME:aPreviousBankruptcyorCP
311
  LEN:1
@@ -437,6 +452,17 @@ LEN:12
437
 
438
 
439
 
 
 
 
 
 
 
 
 
 
 
 
440
  NAME:myPreviousSubStatus
441
  LEN:12
442
 
@@ -465,3 +491,14 @@ LEN:12
465
 
466
  Terminology Type: ACCOUNT_REVIEW_STATUS
467
 
 
 
 
 
 
 
 
 
 
 
 
295
  NAME:aPreAppApplicationDate
296
  LEN:8
297
 
298
+ Date Created: 26 September 2019
299
+ Created By: ThabanS
300
+ Property Name: #propertyName
301
+ Patch Number: 5245
302
+ Ticket: 99999
303
+ Purpose: Not Implemented
304
 
305
  NAME:aPreAppCommitmentDate
306
  LEN:8
307
 
308
+ Date Created: 26 September 2019
309
+ Created By: ThabanS
310
+ Property Name: #propertyName
311
+ Patch Number: 5245
312
+ Ticket: 99999
313
+ Purpose: Not Implemented
314
 
315
  NAME:aPreAppCommitmentExpirtyDate
316
  LEN:8
317
 
318
+ Date Created: 26 September 2019
319
+ Created By: ThabanS
320
+ Property Name: #propertyName
321
+ Patch Number: 5245
322
+ Ticket: 99999
323
+ Purpose: Not Implemented
324
 
325
  NAME:aPreviousBankruptcyorCP
326
  LEN:1
452
 
453
 
454
 
455
+ NAME:myPledgedAccount
456
+ LEN:12
457
+ Pledged Account
458
+
459
+ Date Created: 04 October 2022
460
+ Created By: NormanA
461
+ Property Name: myPledgedAccount
462
+ Patch Number: 124658
463
+ Ticket: HTB-1479
464
+ Purpose: Pledged Account Terminology reference
465
+
466
  NAME:myPreviousSubStatus
467
  LEN:12
468
 
491
 
492
  Terminology Type: ACCOUNT_REVIEW_STATUS
493
 
494
+ NAME:virtPledgedAccountString
495
+ LEN:-1
496
+
497
+
498
+ Date Created: 05 October 2022
499
+ Created By: NormanA
500
+ Property Name: virtMyPledgedAccount
501
+ Patch Number: 124658
502
+ Ticket: HTB-1479
503
+ Purpose: virt Attribute to be used for selection plans
504
+
C://PATCH_CONTROL//FROM/UnderwritingData_getPledgedAccount.txt ADDED
@@ -0,0 +1,25 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ getPledgedAccount(): Terminology;
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 04 October 2022
5
+ Created By: NormanA
6
+ Method Name: getPledgedAccount
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Get Pledged Account Terminology associated with this account
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+
18
+
19
+ begin
20
+
21
+ return myPledgedAccount;
22
+ epilog
23
+
24
+
25
+ end;
C://PATCH_CONTROL//FROM/UnderwritingData_setPledgedAccount.txt ADDED
@@ -0,0 +1,26 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ setPledgedAccount(pPledgedAccount: Terminology) updating;
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 04 October 2022
5
+ Created By: NormanA
6
+ Method Name: setPledgedAccount
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: Set pledge Account associated with this loan
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+
18
+
19
+ begin
20
+ app.mStartAudit(self);
21
+ myPledgedAccount := pPledgedAccount;
22
+
23
+ epilog
24
+
25
+
26
+ end;
C://PATCH_CONTROL//FROM/UnderwritingData_virtPledgedAccountString.txt ADDED
@@ -0,0 +1,34 @@
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1
+ virtPledgedAccountString(set: Boolean; _value: String io) mapping;
2
+
3
+ /*************************************************************************************************
4
+ Date Created: 05 October 2022
5
+ Created By: NormanA
6
+ Method Name: virtMyPledgedAccount
7
+ Patch Number: 124658
8
+ Ticket: HTB-1479
9
+ Purpose: virt Attribute to be used for non pledged selected plan
10
+
11
+ Date Ticket Patch Who Description
12
+ ------- ------ ------ ----------- --------------------------------------------------------------
13
+ ddMMMyy
14
+ *************************************************************************************************/
15
+
16
+ vars
17
+
18
+
19
+ begin
20
+ if set then
21
+ // set code here
22
+ else
23
+ _value := null;
24
+ if getPledgedAccount <> null then
25
+ _value := getPledgedAccount.mGetKeyName;
26
+ endif;
27
+ endif;
28
+
29
+
30
+
31
+ epilog
32
+
33
+
34
+ end;
C://PATCH_CONTROL//{TO → FROM}/User_mIsDeveloper.txt RENAMED
@@ -24,13 +24,13 @@ begin
24
  // #HTB-275 Gaurav 11May20 {122917} : Unioned user names from STG2.
25
  if aUserName.isOneOf('ThabanS',
26
  'GauravC','gchaudhari',
27
- 'MarkusJ','mjeeger',
28
  'JoyceC',
29
  'DerekC',
30
  'BillR',
31
  //'DanaM',
32
  'BajS',
33
- 'DarrellB','dbyrne',
34
  'JenniferM',
35
  'HeenaM','hmistry',
36
  'dshanmugalingam','DeepthiS',
@@ -42,11 +42,9 @@ begin
42
  'KarenV','kvo',
43
  'mparas',
44
  'SpencerG',
45
- 'hpahuja',
46
- 'engo',
47
- 'ElvisN',
48
- 'dpaneri',
49
- 'DevangP'
50
  )
51
  then
52
  return true;
24
  // #HTB-275 Gaurav 11May20 {122917} : Unioned user names from STG2.
25
  if aUserName.isOneOf('ThabanS',
26
  'GauravC','gchaudhari',
27
+ 'MarkusJ',
28
  'JoyceC',
29
  'DerekC',
30
  'BillR',
31
  //'DanaM',
32
  'BajS',
33
+ 'DarrellB',
34
  'JenniferM',
35
  'HeenaM','hmistry',
36
  'dshanmugalingam','DeepthiS',
42
  'KarenV','kvo',
43
  'mparas',
44
  'SpencerG',
45
+ 'KyleE',
46
+ 'SaulL',
47
+ 'NormanA'
 
 
48
  )
49
  then
50
  return true;